set FilterEnsemble prototype types to be infered from mlr_reflections

advieser · advieser · commit 8e944f569372 · 2026-04-17T11:04:24.000+02:00
diff --git a/R/zzz.R b/R/zzz.R
@@ -22,12 +22,12 @@ register_mlr3 = function() {
 register_mlr3filters = function() {
   if ("mlr3filters" %in% loadedNamespaces()) {
     x = utils::getFromNamespace("mlr_filters", ns = "mlr3filters")
-    x$add("ensemble", FilterEnsemble, .prototype_args = list(filters = list(R6Class("Filter", public = list(id = "filter", task_types = character(), task_properties = character(), param_set = ps(), feature_types = character(), packages = "mlr3pipelines", label = NA_character_, man = NA_character_))$new()))) # nolint
+    x$add("ensemble", FilterEnsemble, .prototype_args = list(filters = list(
+      R6Class("Filter", public = list(id = "filter", task_types = mlr_reflections$task_types$type, task_properties = character(), param_set = ps(), feature_types = mlr_reflections$task_feature_types, packages = "mlr3pipelines", label = NA_character_, man = NA_character_))$new()))) # nolint
   }
 }
 
 
-
 paradox_info <- list2env(list(is_old = FALSE), parent = emptyenv())
 
 .onLoad = function(libname, pkgname) {  # nocov start

Original file line number	Diff line number	Diff line change
`@@ -22,12 +22,12 @@ register_mlr3 = function() {`
`22`	`22`	`register_mlr3filters = function() {`
`23`	`23`	`if ("mlr3filters" %in% loadedNamespaces()) {`
`24`	`24`	`x = utils::getFromNamespace("mlr_filters", ns = "mlr3filters")`
`25`		`- x$add("ensemble", FilterEnsemble, .prototype_args = list(filters = list(R6Class("Filter", public = list(id = "filter", task_types = character(), task_properties = character(), param_set = ps(), feature_types = character(), packages = "mlr3pipelines", label = NA_character_, man = NA_character_))$new()))) # nolint`
	`25`	`+ x$add("ensemble", FilterEnsemble, .prototype_args = list(filters = list(`
	`26`	`+ R6Class("Filter", public = list(id = "filter", task_types = mlr_reflections$task_types$type, task_properties = character(), param_set = ps(), feature_types = mlr_reflections$task_feature_types, packages = "mlr3pipelines", label = NA_character_, man = NA_character_))$new()))) # nolint`
`26`	`27`	`}`
`27`	`28`	`}`
`28`	`29`
`29`	`30`
`30`		`-`
`31`	`31`	`paradox_info <- list2env(list(is_old = FALSE), parent = emptyenv())`
`32`	`32`
`33`	`33`	`.onLoad = function(libname, pkgname) { # nocov start`