# NOT RUN {
library(igraph) # for %>%
library(SpaDES)
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)
shine(testResults$moduleCoverage)
shine(testResults$functionCoverage)
unlink(tmpdir, recursive = TRUE)
# }
Run the code above in your browser using DataLab