## show the progress just printing the steps
simmer() %>%
run(progress=message, steps=5)
## using the 'progress' package
if (FALSE) {
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::progress_bar$new()$update)
}
Run the code above in your browser using DataLab