tests/testthat/test-get_pcs.R

prism <- system.file('testdata/prism_test.RDS', package = 'tidyEOF') %>%
  readRDS()

test_that("get_pcs() runs", {
  expect_no_error(get_pcs(prism))
})
nick-gauthier/tidyEOF documentation built on July 21, 2023, 8:25 a.m.