tests/.test_coverage.R

In malaria-atlas-project/malariaAtlas: An R Interface to Open-Access Malaria Data, Hosted by the 'Malaria Atlas Project'

test_coverage <- function(path){
  
  coverage_obj <- covr::package_coverage(path = path, type = "tests")
  coverage_percent <- covr::percent_coverage(coverage_obj)
  
  message(paste("Code coverage: ", coverage_percent, "%", sep = ""))
  
  if(coverage_percent<30){
    stop("Code coverage less than 30%")
  }else{
    message("Code coverage is greater than 30%.")
  }
}

install.packages("covr", repos = "https://cran.ma.imperial.ac.uk/")
test_coverage(path = ".")