working_dir/ref_mem.R

library(simmer)

simmer() %>%
  add_generator("asdf", timeout(trajectory(), 1), function() rexp(100, 1)) %>%
  run(1e7)

gc() # still stored in .Last.value
gc() # freed

env <- simmer() %>%
  add_generator("asdf", timeout(trajectory(), 1), function() rexp(100, 1)) %>%
  run(1e7)

reset(env)

env <- simmer() %>%
  add_generator("asdf", timeout(trajectory(), 1), function() rexp(100, 1)) %>%
  run(1e7)

rm(env)
gc()
Enchufa2/simmer documentation built on Dec. 9, 2023, 4:43 a.m.