```{r module_usage}
library(SpaDES)
library(magrittr)
inputDir <- file.path(tempdir(), "inputs") %>% checkPath(create = TRUE)
outputDir <- file.path(tempdir(), "outputs")
times <- list(start = 0, end = 10)
parameters <- list()
modules <- list("yieldTables")
objects <- list()
paths <- list(
cachePath = file.path(outputDir, "cache"),
modulePath = file.path("scfmModules"),
inputPath = inputDir,
outputPath = outputDir
)
mySim <- simInit(times = times, params = parameters, modules = modules, paths = paths)
if (exists("mySim")){
tmp <-spades(mySim)
}
```