extras/UnitTestCommands.R

In anthonysena/CohortGenerator: Used to generate OHDSI cohorts

# Run tests
devtools::test()

# Ref: https://jozef.io/r104-unit-testing-coverage/
# Capture test coverage - run in the package root
detach("package:CohortGenerator", unload=TRUE)
covResults <- covr::package_coverage()
print(covResults)
# Visually inspect the code to see where we lack coverage
zeroCov <- covr::zero_coverage(covResults)