Show simulation progress

[Enchufa2]

With a helper verb such as the following:

run_with_progress <- function(.env, until=1000, steps=10) {
  for (i in seq(until/steps, until, until/steps)) {
    run(.env, until=i)
    message(paste0(100*i/until, "%"))
  }
  .env
}

[Enchufa2]

Finally, implemented in run() as an option. Example using the progress package:

library(simmer)
library(progress)

mm1 <- trajectory() %>%
  seize("server", 1) %>%
  timeout(function() rexp(1, 66)) %>%
  release("server", 1)

simmer() %>%
  add_resource("server", 1) %>%
  add_generator("customer", mm1, function() rexp(100, 60)) %>%
  run(3000, progress=progress_bar$new()$update, steps=10)

[spgarbet]

Excellent!

[mfhaln]

Briliant! this example really need to be added to run() documentation, took me a couple of hours of digging before I found this and only through the ChangeLog.

[Enchufa2]

Thanks for the feedback! That manual page definitely needs some examples.