## Not run:
#
# # Load random maps included with package
# filelist <- data.frame(
# files = dir(system.file("maps", package = "SpaDES"),
# full.names = TRUE, pattern = "tif"),
# functions = "rasterToMemory", package = "SpaDES"
# )
# sim1 <- loadFiles(filelist = filelist)
# clearPlot()
# if (interactive()) Plot(sim1$DEM)
#
# # Second, more sophisticated. All maps loaded at time = 0, and the last one is reloaded
# # at time = 10 and 20 (via "intervals").
# # Also, pass the single argument as a list to all functions...
# # specifically, when add "native = TRUE" as an argument to the raster function
# files = dir(system.file("maps", package = "SpaDES"),
# full.names = TRUE, pattern = "tif")
# arguments = I(rep(list(native = TRUE), length(files)))
# filelist = data.frame(
# files = files,
# functions = "raster::raster",
# objectName = NA,
# arguments = arguments,
# loadTime = 0,
# intervals = c(rep(NA, length(files)-1), 10)
# )
#
# sim2 <- loadFiles(filelist = filelist)
#
# # if we extend the end time and continue running, it will load an object scheduled
# # at time = 10, and it will also schedule a new object loading at 20 because
# # interval = 10
# end(sim2) <- 20
# sim2 <- spades(sim2) # loads the percentPine map 2 more times, once at 10, once at 20
# ## End(Not run)
Run the code above in your browser using DataLab