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