tests/testthat/test_extract_vars.R

test_that("extract_vars", {
  f = Species ~ Sepal.Width > 1 + Petal.Length
  x = extract_vars(f)

  expect_list(x, len = 2L)
  expect_names(names(x), identical.to = c("lhs", "rhs"))
  expect_set_equal(x$lhs, "Species")
  expect_set_equal(x$rhs, c("Sepal.Width", "Petal.Length"))
})
mlr-org/mlr3misc documentation built on Aug. 21, 2024, 4:06 a.m.