tests/testthat.R

In teal.modules.general: General Modules for 'teal' Applications

pkg_name <- "teal.modules.general"
if (requireNamespace("testthat", quietly = TRUE)) {
  library(testthat)
  is_on_ci <- isTRUE(as.logical(Sys.getenv("CI")))
  if (is_on_ci) {
    reporter <- MultiReporter$new(list(
      CheckReporter$new()
    ))
    test_results <- test_check(pkg_name, reporter = reporter)
    saveRDS(test_results, "unit_testing_results.rds")
  } else {
    reporter <- ParallelProgressReporter$new()
    test_check(pkg_name, reporter = reporter)
  }
}