refactor: use if statement instead of ifelse where scalar is used

Author: m-muecke

R/LearnerDensKDE.R

@@ -54,10 +54,12 @@ LearnerDensKDE = R6::R6Class("LearnerDensKDE",
         ClassName)))$new()
 
 
-      bw = ifelse(self$param_set$values$bandwidth == "silver",
+      bw = if (isTRUE(self$param_set$values$bandwidth == "silver")) {
+        "silver"
+      } else {
         0.9 * min(sd(data), stats::IQR(data, na.rm = TRUE) / 1.349, na.rm = TRUE) *
-          length(data)^-0.2,
-        self$param_set$values$bandwidth)
+          length(data)^-0.2
+      }
 
       pdf = function(x) {} # nolint
 

R/PipeOpTaskSurvRegr.R

@@ -201,7 +201,7 @@ PipeOpTaskSurvRegr = R6Class("PipeOpTaskSurvRegr",
         reorder = private$.reorder(backend, pv$features, pv$target, inputs[[2]])
       )
 
-      target = ifelse(method == "reorder", pv$target, time)
+      target = if (method == "reorder") pv$target else time
 
       new_task = TaskRegr$new(id = input$id, backend = backend, target = target)
 

R/pecs.R

@@ -76,7 +76,7 @@ pecs.list = function(x, measure = c("graf", "logloss"), times, n, eps = NULL, ta
   measure = match.arg(measure)
 
   if (is.null(eps)) {
-    eps = ifelse(measure == "graf", 1e-3, 1e-15)
+    eps = if (measure == "graf") 1e-3 else 1e-15
   } else {
     assertNumeric(eps, lower = -1, upper = 1)
   }
@@ -148,7 +148,7 @@ pecs.PredictionSurv = function(x, measure = c("graf", "logloss"), times, n, eps
 
   measure = match.arg(measure)
   if (is.null(eps)) {
-    eps = ifelse(measure == "graf", 1e-3, 1e-15)
+    eps = if (measure == "graf") 1e-3 else 1e-15
   } else {
     assertNumeric(eps, lower = -1, upper = 1)
   }