tests/testthat/test_print.rgcca_permutation.R

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

#' # print.rgcca_permutation
#'''
set.seed(0)
data(Russett)
blocks <- list(
  agriculture = Russett[, seq(3)],
  industry = Russett[, 4:5],
  politic = Russett[, 6:11]
)

res <- rgcca_permutation(blocks,
  par_type = "tau", par_length = 2,
  n_perms = 5, n_cores = 1, verbose = FALSE
)

test_that("print.rgcca_permutation prints the expected text", {
  skip_if_not(as.logical(Sys.getenv("TEST_SNAPSHOTS")))
  local_edition(3)
  expect_snapshot(print(res))
})