refactor: use checkmate null coalesce instead of own function

Author: m-muecke

R/breslow.R

@@ -147,7 +147,7 @@ breslow = function(times, status, lp_train, lp_test, eval_times = NULL, type = "
   })
 
   # `eval_times` will be the sorted unique times (not just events)
-  eval_times = sort(unique(eval_times %||% times))
+  eval_times = sort(unique(eval_times %??% times))
   if (length(event_times) == 0L) {
     # 0 events (training data has only censored observations!)
     res = numeric(length(eval_times))

R/helpers.R

@@ -50,14 +50,6 @@ r6_private = function(x) {
   x$.__enclos_env__$private
 }
 
-`%||%` = function(x, y) {
-  if (is.null(x)) {
-    y
-  } else {
-    x
-  }
-}
-
 ## used for plotting
 apply_theme = function(theme_object, default_object = NULL) {
   if (getOption("mlr3.theme", TRUE)) theme_object else default_object %??% geom_blank()

R/surv_return.R

@@ -47,7 +47,7 @@
     if (class(surv)[1L] == "array" && length(dim(surv)) != 3L) {
       stop("3D survival arrays supported only")
     }
-    times = times %||% colnames(surv)
+    times = times %??% colnames(surv)
     if (length(times) != ncol(surv)) {
       stop("'times' must have the same length as the 2nd dimension (columns of 'surv')")
     }