fix: add missing property to correlation and anova (depending on hyperpars)

Author: mllg

R/FilterCorrelation.R

@@ -70,7 +70,12 @@ FilterCorrelation = R6Class("FilterCorrelation",
         y = as.matrix(task$truth()),
         .args = pv)[, 1L]
       set_names(abs(score), fn)
+    },
+
+    .get_properties = function() {
+      "missings"
     }
+
   )
 )
 

R/FilterInformationGain.R

@@ -72,10 +72,6 @@ FilterInformationGain = R6Class("FilterInformationGain",
   ),
 
   private = list(
-    .get_properties = function() {
-      "missings"
-    },
-
     .calculate = function(task, nfeat) {
       pv = self$param_set$values
       pv$type = pv$type %??% "infogain"
@@ -85,6 +81,10 @@ FilterInformationGain = R6Class("FilterInformationGain",
       y = task$truth()
       scores = invoke(FSelectorRcpp::information_gain, x = x, y = y, .args = pv)
       set_names(scores$importance, scores$attributes)
+    },
+
+    .get_properties = function() {
+      "missings"
     }
   )
 )

R/FilterKruskalTest.R

@@ -45,7 +45,7 @@ FilterKruskalTest = R6Class("FilterKruskalTest",
     #' @description Create a FilterKruskalTest object.
     initialize = function() {
       param_set = ps(
-        na.action = p_fct(c("na.omit", "na.fail", "na.exclude", "na.pass"), default = "na.omit")
+        na.action = p_fct(c("na.omit", "na.fail", "na.exclude"), default = "na.omit")
       )
 
       super$initialize(
@@ -69,6 +69,11 @@ FilterKruskalTest = R6Class("FilterKruskalTest",
       -log10(map_dbl(data, function(x) {
         kruskal.test(x = x, g = g, na.action = na_action)$p.value
       }))
+    },
+
+    .get_properties = function() {
+      ok = c("na.omit", "na.exclude")
+      if ((self$param_set$values$na.action %??% "na.omit") %in% ok) "missings" else character()
     }
   )
 )