tests/testthat/test_base_getTaskFormula.R

In mlr-org/mlr: Machine Learning in R

test_that("getTaskFormula", {
  ## binaryclass
  expect_equal(binaryclass.formula, getTaskFormula(binaryclass.task),
    ignore_formula_env = TRUE)
  my.binaryclass.formula = paste(
    binaryclass.target, "~",
    collapse(colnames(binaryclass.df[, -binaryclass.class.col]), sep = " + "))
  expect_equal(
    as.formula(my.binaryclass.formula),
    getTaskFormula(binaryclass.task, explicit.features = TRUE),
    ignore_formula_env = TRUE)

  ## multiclass
  expect_equal(multiclass.formula, getTaskFormula(multiclass.task),
    ignore_formula_env = TRUE)
  my.multiclass.formula = paste(
    multiclass.target, "~",
    collapse(colnames(multiclass.df[, -multiclass.class.col]), sep = " + "))
  expect_equal(
    as.formula(my.multiclass.formula),
    getTaskFormula(multiclass.task, explicit.features = TRUE))

  ## regr
  expect_equal(regr.formula, getTaskFormula(regr.task),
    ignore_formula_env = TRUE)
  my.regr.formula = paste(
    regr.target, "~",
    collapse(colnames(regr.df[, -regr.class.col]), sep = " + "))
  expect_equal(
    as.formula(my.regr.formula),
    getTaskFormula(regr.task, explicit.features = TRUE))

  ## regr
  expect_equal(regr.num.formula, getTaskFormula(regr.num.task),
    ignore_formula_env = TRUE)
  my.regr.num.formula = paste(
    regr.num.target, "~",
    collapse(colnames(regr.num.df[, -regr.num.class.col]), sep = " + "))
  expect_equal(
    as.formula(my.regr.num.formula),
    getTaskFormula(regr.num.task, explicit.features = TRUE))
})

test_that("issue #1467", {
  expect_error(getTaskFormula(unclass(iris.task)), "no applicable method")
})