R/pkg_ref_cache_expr_coverage.R

In riskmetric: Risk Metrics to Evaluating R Packages

#' Retrieve output of covr::package_coverage, tallied by expression
#'
#' @inheritParams pkg_ref_cache
#' @family package reference cache
#' @return a \code{pkg_ref} object
#' @keywords internal
#' @noRd
pkg_ref_cache.expression_coverage <- function(x, ...) {
  UseMethod("pkg_ref_cache.expr_coverage")
}

#' Retrieve output of covr::package_coverage, tallied by expression
#'
#' @importFrom covr tally_coverage
#' @return a \code{pkg_ref} object
#' @keywords internal
pkg_ref_cache.expression_coverage.pkg_source <- function(x, ...) {
  covr::tally_coverage(x$covr_coverage, by = "expression")
}