tests/testthat/test_formulate.R

test_that("formulate", {
  f = formulate("Species", c("Sepal.Width", "Petal.Length"))
  expect_formula(f)
  expect_null(environment(f))

  x = extract_vars(f)
  expect_set_equal(x$lhs, "Species")
  expect_set_equal(x$rhs, c("Sepal.Width", "Petal.Length"))
})

test_that("formulate_multioutput", {
  f = formulate(c("Pepal.Width", "Petal.Length"), c("Sepal.Width", "Sepal.Length"))
  expect_formula(f)
  expect_null(environment(f))

  x = extract_vars(f)
  expect_set_equal(x$lhs, c("Pepal.Width", "Petal.Length"))
  expect_set_equal(x$rhs, c("Sepal.Width", "Sepal.Length"))
})

test_that("formulate quotes", {
  f = formulate("y", "a-b")
  str = as.character(f)
  expect_character(str, len = 3)
  expect_equal(str[3], "`a-b`")
})

Try the mlr3misc package in your browser

Any scripts or data that you put into this service are public.

mlr3misc documentation built on Sept. 20, 2023, 5:06 p.m.