...

Author: be-marc

R/Task.R

@@ -1473,15 +1473,15 @@ task_check_col_roles.TaskClassif = function(task, new_roles, ...) {
 
   # check target
   if (length(new_roles[["target"]]) > 1L) {
-    error_config("There may only be up to one column with role 'target'")
+    error_input("There may only be up to one column with role 'target'")
   }
 
   if (length(new_roles[["target"]]) && any(fget_keys(task$col_info, new_roles[["target"]], "type", key = "id") %nin% c("factor", "ordered"))) {
-    error_config("Target column(s) %s must be a factor or ordered factor", paste0("'", new_roles[["target"]], "'", collapse = ","))
+    error_input("Target column(s) %s must be a factor or ordered factor", paste0("'", new_roles[["target"]], "'", collapse = ","))
   }
 
   if (length(new_roles[["offset"]]) > 1L && length(task$class_names) == 2L) {
-    error_config("There may only be up to one column with role 'offset' for binary classification tasks")
+    error_input("There may only be up to one column with role 'offset' for binary classification tasks")
   }
 
   if (length(new_roles[["offset"]]) > 1L) {
@@ -1497,12 +1497,12 @@ task_check_col_roles.TaskClassif = function(task, new_roles, ...) {
 task_check_col_roles.TaskRegr = function(task, new_roles, ...) {
   for (role in c("target", "offset")) {
     if (length(new_roles[[role]]) > 1L) {
-      error_config("There may only be up to one column with role '%s'", role)
+      error_input("There may only be up to one column with role '%s'", role)
     }
   }
 
   if (length(new_roles[["target"]]) && any(fget_keys(task$col_info, new_roles[["target"]], "type", key = "id") %nin% c("numeric", "integer"))) {
-    error_config("Target column '%s' must be a numeric or integer column", paste0("'", new_roles[["target"]], "'", collapse = ","))
+    error_input("Target column '%s' must be a numeric or integer column", paste0("'", new_roles[["target"]], "'", collapse = ","))
   }
 
   NextMethod()
@@ -1514,7 +1514,7 @@ task_check_col_roles.TaskSupervised = function(task, new_roles, ...) {
 
   # check target
   if (length(new_roles$target) == 0L) {
-    error_config("Supervised tasks need at least one target column")
+    error_input("Supervised tasks need at least one target column")
   }
 
   NextMethod()
@@ -1526,7 +1526,7 @@ task_check_col_roles.TaskUnsupervised = function(task, new_roles, ...) {
 
   # check target
   if (length(new_roles$target) != 0L) {
-    error_config("Unsupervised tasks may not have a target column")
+    error_input("Unsupervised tasks may not have a target column")
   }
 
   NextMethod()

R/assertions.R

@@ -313,7 +313,7 @@ assert_scorable = function(measure, task, learner, prediction = NULL, .var.name
 assert_measures = function(measures, task = NULL, learner = NULL, .var.name = vname(measures)) {
   lapply(measures, assert_measure, task = task, learner = learner, .var.name = .var.name)
   if (anyDuplicated(ids(measures))) {
-    error_config("Measures need to have unique IDs")
+    error_input("Measures need to have unique IDs")
   }
   invisible(measures)
 }
@@ -429,12 +429,12 @@ assert_row_sums = function(prob) {
     n_missing = count_missing(x)
     if (n_missing > 0L) {
       if (n_missing < length(x)) {
-        error_config("Probabilities for observation %i are partly missing", i)
+        error_input("Probabilities for observation %i are partly missing", i)
       }
     } else {
       s = sum(x)
       if (abs(s - 1) > 0.001) {
-        error_config("Probabilities for observation %i do sum up to %f != 1", i, s)  # TODO error_input?
+        error_input("Probabilities for observation %i do sum up to %f != 1", i, s)
       }
     }
   }

R/worker.R

@@ -557,12 +557,12 @@ create_internal_valid_task = function(validate, task, test_row_ids, prev_valid,
         error_config("Parameter 'validate' is set to 'predefined' but no internal validation task is present. This commonly happens in GraphLearners and can be avoided by configuring the validation data for the  GraphLearner via `set_validate(glrn, validate = values)`. See https://mlr3book.mlr-org.com/chapters/chapter15/predsets_valid_inttune.html for more information.")
       }
       if (!identical(task$target_names, task$internal_valid_task$target_names)) {
-        error_input("Internal validation task '%s' has different target names than primary task '%s', did you modify the task after creating the internal validation task?",
-          task$internal_valid_task$id, task$id)  # TODO error_config?
+        error_config("Internal validation task '%s' has different target names than primary task '%s', did you modify the task after creating the internal validation task?",
+          task$internal_valid_task$id, task$id)
       }
       if (!test_permutation(task$feature_names, task$internal_valid_task$feature_names)) {
-        error_input("Internal validation task '%s' has different features than primary task '%s', did you modify the task after creating the internal validation task?",
-          task$internal_valid_task$id, task$id)  # TODO error_config?
+        error_config("Internal validation task '%s' has different features than primary task '%s', did you modify the task after creating the internal validation task?",
+          task$internal_valid_task$id, task$id)
       }
       return(task)
     } else { # validate is "test"