fix batchmark for new batchtools version (mlr-org#2067)

* fix batchmark for new batchtools version

* fix whitespaces

Author: ja-thomas

R/batchmark.R

@@ -108,7 +108,7 @@ reduceBatchmarkResults = function(ids = NULL, keep.pred = TRUE, show.info = getM
     warning("Collecting results for a subset of jobs. The resulting BenchmarkResult may be misleading.")
 
   problem = algorithm = NULL # for data.table's NSE
-  tab = batchtools::getJobPars(ids, flatten = FALSE, reg = reg)[, c("job.id", "problem", "algorithm")]
+  tab = batchtools::getJobPars(ids, reg = reg)[, c("job.id", "problem", "algorithm")]
   setkeyv(tab, cols = c("problem", "algorithm"), physical = FALSE)
   result = namedList(tab[, unique(problem)])
 

tests/testthat/test_base_batchmark.R

@@ -19,8 +19,8 @@ test_that("batchmark", {
   expect_data_table(ids, ncol = 1L, nrow = 2, key = "job.id")
   expect_set_equal(ids$job.id, 1:2)
   tab = summarizeExperiments(reg = reg)
-  expect_equal(tab$problem, as.factor("binary"))
-  expect_equal(tab$algorithm, as.factor("classif.lda"))
+  expect_equal(tab$problem, "binary")
+  expect_equal(tab$algorithm, "classif.lda")
   expect_set_equal(findExperiments(reg = reg)$job.id, 1:2)
 
   submitJobs(reg = reg)

tests/testthat/test_base_generateFilterValuesData.R

@@ -61,15 +61,15 @@ test_that("filterFeatures", {
 
 test_that("plotFilterValues", {
   filter.methods = listFilterMethods(tasks = TRUE)
-  
+
   filter.classif = as.character(filter.methods[filter.methods$task.classif == TRUE, "id"])
   filter.classif = setdiff(filter.classif, "permutation.importance") # this filter needs additional arguments
 
   fv = generateFilterValuesData(binaryclass.task, method = filter.classif)
   plotFilterValues(fv)
 
   filter.regr = as.character(filter.methods[filter.methods$task.regr == TRUE & filter.methods$task.classif == FALSE, "id"])
-  
+
   fv = generateFilterValuesData(regr.num.task, method = filter.regr)
   plotFilterValues(fv)