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 June 1, 2025, 2:48 p.m.