pass measure in performance filter + test

Author: bblodfon

R/FilterPerformance.R

@@ -79,7 +79,8 @@ FilterPerformance = R6Class("FilterPerformance",
 
       perf = map_dbl(fn, function(x) {
         task$col_roles$feature = x
-        resample(task, self$learner, self$resampling, clone = character())$aggregate()
+        resample(task, self$learner, self$resampling, clone = character())$
+          aggregate(measures = self$measure)
       })
 
       if (self$measure$minimize) {

tests/testthat/test_FilterPerformance.R

@@ -4,7 +4,15 @@ test_that("FilterPerformance", {
   resampling = rsmp("holdout")
   f = flt("performance", learner = learner, resampling = resampling)
 
+  expect_equal(f$measure$id, "classif.ce")
   f$calculate(task)
   expect_filter(f, task = task)
-  expect_true(all(f$scores <= 0))
+  expect_true(all(f$scores <= 0)) # default measure is classif.error
+
+  f = flt("performance", learner = learner, resampling = resampling,
+           measure = msr("classif.acc")) # change measure
+  expect_equal(f$measure$id, "classif.acc")
+  f$calculate(task)
+  expect_filter(f, task = task)
+  expect_true(all(f$scores >= 0))
 })