## 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)
# ## End(Not run)
Run the code above in your browser using DataLab