# NOT RUN {
mySim <- simInit(
times <- list(start = 0.0, end = 20.0),
params = list(
.globals = list(stackName = "landscape", burnStats = "nPixelsBurned")
),
modules = list("randomLandscapes", "fireSpread", "caribouMovement"),
paths = list(modulePath = system.file("sampleModules", package = "SpaDES"))
)
shine(mySim)
# To publish to shinyapps.io, need files. THis is not reliable yet.
shine(mySim, filesOnly = TRUE)
# if the user wants to see the events go by, which can help with debugging:
shine(mySim, debug = TRUE)
# }
Run the code above in your browser using DataLab