Running 'testthat.R' [12s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > # setting R_TESTS to empty string because of
  > # https://github.com/hadley/testthat/issues/144
  > # revert this when that issue in R is fixed.
  > Sys.setenv("R_TESTS" = "")
  > 
  > library(testthat)
  > library(batchtools)
  Loading required package: data.table
  Breaking change introduced in batchtools v0.9.6: The format of the returned data.table of the functions `reduceResultsDataTable()`, getJobTable()`, `getJobPars()`, and `getJobResources()` has changed. List columns are not unnested automatically anymore. To manually unnest tables, batchtools provides the helper function `unwrap()` now, e.g. `unwrap(getJobPars())`. The previously introduced helper function `flatten()` will be deprecated due to a name clash with `purrr::flatten()`.
  > 
  > test_check("batchtools")
  -- 1. Error: addAlgorithm (@test_Algorithm.R#13)  ------------------------------
  type must be LANGSXP at this point
  1: addExperiments(list(p1 = data.table()), algo.designs = list(a1 = data.table(), a2 = data.table()), 
         repls = 2, reg = reg) at testthat/test_Algorithm.R:13
  2: merge(reg$defs[, !c("problem", "algorithm", "prob.pars", "algo.pars")], tab, by = "pars.hash", 
         all.x = FALSE, all.y = TRUE, sort = FALSE)
  3: merge.data.table(reg$defs[, !c("problem", "algorithm", "prob.pars", "algo.pars")], 
         tab, by = "pars.hash", all.x = FALSE, all.y = TRUE, sort = FALSE)
  4: y[x, nomatch = if (all.x) NA else 0, on = by, allow.cartesian = allow.cartesian]
  5: `[.data.table`(y, x, nomatch = if (all.x) NA else 0, on = by, allow.cartesian = allow.cartesian)
  6: length(ans$indices)
  
  -- 2. Error: addAlgorithm overwrites old algo (@test_Algorithm.R#31)  ----------
  type must be LANGSXP at this point
  1: addExperiments(list(p1 = data.table()), list(a1 = data.table()), reg = reg) at testthat/test_Algorithm.R:31
  2: merge(reg$defs[, !c("problem", "algorithm", "prob.pars", "algo.pars")], tab, by = "pars.hash", 
         all.x = FALSE, all.y = TRUE, sort = FALSE)
  3: merge.data.table(reg$defs[, !c("problem", "algorithm", "prob.pars", "algo.pars")], 
         tab, by = "pars.hash", all.x = FALSE, all.y = TRUE, sort = FALSE)
  4: y[x, nomatch = if (all.x) NA else 0, on = by, allow.cartesian = allow.cartesian]
  5: `[.data.table`(y, x, nomatch = if (all.x) NA else 0, on = by, allow.cartesian = allow.cartesian)
  6: length(ans$indices)
  
  Loading required package: methods
  Error in check_result(res) : could not find function "check_result"
  Calls: test_check ... failure_summary -> paste0 -> <Anonymous> -> assert_that -> see_if
  Error in check_result(res) : could not find function "check_result"
  Calls: test_check ... cat_line -> paste0 -> rule -> assert_that -> see_if
  Execution halted