Nothing
#' @include lists.R
#' @importFrom covr package_coverage zero_coverage percent_coverage
#' @importFrom withr with_options
PREPS$covr <- function(state, path = state$path, quiet) {
covr <- try(list(coverage = package_coverage(path, quiet = quiet)),
silent = quiet)
if (inherits(covr, "try-error")) {
warning("Prep step for test coverage failed.")
} else {
with_options(
list(covr.rstudio_source_markers = FALSE),
covr$zero <- zero_coverage(covr$coverage)
)
covr$pct_by_line <- percent_coverage(covr$coverage, by = "line")
covr$pct_by_expr <- percent_coverage(covr$coverage, by = "expression")
}
state$covr <- covr
state
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.