tests/testthat/test-nominal_split.R

In JDOsborne1/megametadata: Generate and use Metadata

test_that("nominal split works", {
        split <- metaSplitNominal(megametadata::tester, "AccountLevel")
  expect_equal(split$nominal, "Species")
  expect_equal(split$continuous, c("Sepal.Length", "Sepal.Width",  "Petal.Length", "Petal.Width" ))
})