# NOT RUN {
tmpdir <- file.path(tempdir(), "coverage")
modulePath <- file.path(tmpdir, "Modules") %>% checkPath(create = TRUE)
moduleName <- "forestAge" # sample module to test
downloadModule(name = moduleName, path = modulePath) # download sample module
testResults <- moduleCoverage(name = moduleName, path = modulePath)
report(testResults$moduleCoverage)
report(testResults$functionCoverage)
unlink(tmpdir, recursive = TRUE)
mc1 <- moduleCoverage("Biomass_core", modulePath = "..")
# }
Run the code above in your browser using DataLab