scripts/run-covr.R

In hughjonesd/huxtable: Easily Create and Style Tables for LaTeX, HTML and Other Formats

library(covr)
library(huxtable)
Sys.setenv(COVERAGE='yes')
all_created <- c(huxtable:::huxtable_cell_attrs, huxtable:::huxtable_col_attrs,
      huxtable:::huxtable_row_attrs, huxtable:::huxtable_table_attrs)
all_created <- paste0('^', all_created)
cov <- package_coverage(function_exclusions = all_created)
Sys.unsetenv('COVERAGE')