## ----memoryUse, eval=FALSE, echo=TRUE-----------------------------------------
# if (requireNamespace("future", quietly = TRUE) &&
#   requireNamespace("future.callr", quietly = TRUE)) {
#   options("spades.memoryUseInterval" = 0.5)
# 
#   # run your simInit and spades calls here
#   # sim <- simInit()
#   # sim <- spades(sim)
# 
#   memoryUse(sim, max = TRUE) # this should show peak memory use by eventType -- i.e., summarizes if multiple times
#   memoryUse(sim, max = FALSE) # this should show peak memory use by event
# }

