tests/testthat.R

In psborrow2: Bayesian Dynamic Borrowing Analysis and Simulation

pkg_name <- "psborrow2"
if (requireNamespace("testthat", quietly = TRUE)) {
  library(testthat)
  reporter <- MultiReporter$new(list(
    CheckReporter$new(),
    JunitReporter$new(file = "junit-result.xml")
  ))
  test_results <- test_check(pkg_name, reporter = reporter)
  saveRDS(test_results, "unit_testing_results.rds")
}