Merge pull request #906 from mlr-org/compat_mlr3_dev

Change tests to be compatible `mlr3` dev version `0.23.0.9000`

Author: mb706

tests/testthat/test_pipeop_colapply.R

@@ -120,7 +120,7 @@ test_that("apply results look as they should", {
 
 test_that("empty task", {
 
-  task = tsk("iris")$filter(0L)
+  task = tsk("iris")$filter(integer(0))
   po = PipeOpColApply$new()
   po$param_set$values$applicator = function(x) as.integer(x)
 

tests/testthat/test_pipeop_rowapply.R

@@ -354,7 +354,7 @@ test_that("PipeOpRowApply - transform works on task with only one row", {
 test_that("PipeOpRowApply - transform works on empty task (no rows)", {
 
   op = PipeOpRowApply$new()
-  task = mlr_tasks$get("wine")$filter(0)
+  task = mlr_tasks$get("wine")$clone(deep = TRUE)$filter(integer(0))
   cnames = task$feature_names
 
   # applicator generates matrix with names
@@ -426,7 +426,7 @@ test_that("PipeOpRowApply - transform works for empty predict task (no rows)", {
 
   op = PipeOpRowApply$new()
   task_train = mlr_tasks$get("wine")
-  task_predict = task_train$filter(0)
+  task_predict = task_train$clone(deep = TRUE)$filter(integer(0))
   cnames = task_train$feature_names
 
   # applicator generates matrix with names

tests/testthat/test_pipeop_tunethreshold.R

@@ -135,7 +135,7 @@ test_that("threshold respects minimization / maximization", {
     po("tunethreshold", measure = msr("classif.bacc"), optimizer = "random_search")
 
   learner1 = as_learner(graph)
-  learner2 = lrn("classif.rpart")
+  learner2 = lrn("classif.rpart", predict_type = "prob")
 
   design = benchmark_grid(
     task,
@@ -221,7 +221,7 @@ test_that("threshold works with cost measure", {
   learner2 = GraphLearner$new(graph2, id = "fpr.minimizer")
   design = benchmark_grid(
     task,
-    list(learner1, learner2, lrn("classif.rpart")),
+    list(learner1, learner2, lrn("classif.rpart", predict_type = "prob")),
     rsmp("cv", folds = 10)
   )
 

tests/testthat/test_utils.R

@@ -65,10 +65,6 @@ test_that("task_filter_ex - changed row_roles$use", {
   task$row_roles$use = seq(1, 50)
   tfiltered = task_filter_ex(task$clone(), rowidx)
   expect_equal(tfiltered$data(), task$data(rows = rowidx))
-
-  task$row_roles$use = c(seq(1, 50), seq(1, 20))
-  tfiltered = task_filter_ex(task$clone(), 50L + rowidx)
-  expect_equal(tfiltered$data(), task$data(rows = 50L + rowidx))
 })
 
 test_that("task_filter_ex - group renaming in changed row_roles$use", {