tests/testthat/test_as_disjunctive.r

In Tenenhaus/RGCCA: Regularized and Sparse Generalized Canonical Correlation Analysis for Multiblock Data

vec <- c("demo", "ndemo", "demo")
test_that("dim_without_level", {
  expect_equal(dim(as_disjunctive(vec)), c(3, 1))
})
test_that("dim_with_level", {
  expect_equal(
    dim(as_disjunctive(vec, levs = c("demo", "ndemo", "nsp"))), c(3, 2)
  )
})
vec2 <- "demo"
test_that("dim_with_level_for_one", {
  expect_equal(dim(as_disjunctive(vec2, levs = c("demo", "ndemo"))), c(1, 1))
})

test_that("as_disjunctive raises an error if there is only one unique value
          and levels are not given", {
  expect_error(
    as_disjunctive(rep("demo", 5)),
    "Only one level in the variable to predict",
    fixed = TRUE
  )
})