tests/testthat/test-utils_data.R

test_that("scale data", {
  expect_error(scale_data(iris))
  expect_error(scale_data(iris_numeric), NA)
  expect_error(scale_data(iris_numeric, TRUE), NA)
  expect_error(scale_data(iris_numeric, FALSE), NA)
})
rhenkin/visxhclust documentation built on March 28, 2023, 8:16 p.m.