context("coverage tests for the package")
## For excluding lines/scripts from the coverage tests, see:
# ?covr::exclusions
test_that("unless stated otherwise, all scripts must surpass the code coverage threshold", {
covr_obj <- covr::package_coverage(path = ".", clean = FALSE)
covr_list <- covr::coverage_to_list(covr_obj)
names(covr_list$filecoverage) <- basename(names(covr_list$filecoverage))
## Tests
### Check package code coverage
expect_gte(covr_list$totalcoverage, 75, label = "Overall Package Code Coverage")
### Check scripts code coverage
for(e in seq_along(covr_list$filecoverage)){
script_name <- names(covr_list[["filecoverage"]])[e]
script_coverage <- unname(covr_list[["filecoverage"]][e])
expect_gte(script_coverage, 75, label = paste0("\n", script_name))
}
print("")
print(covr_list$filecoverage)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.