tests/testthat.R

In stefanedwards/Siccuracy: Pipeline Package for AlphaImpute

library(testthat)
library(Siccuracy)


if (TRUE) {
  test_check("Siccuracy")
} else {
  test_path <- file.path(getwd(), 'tests', 'testthat')
  testthat:::run_tests('Siccuracy', test_path, filter=NULL, reporter='summary')
}