On-demand arrivals

[Enchufa2]

Example:

library(simmer)

env <- simmer()

trigger_arrivals <- function(.trj, source, n=1) {
  .trj %>%
    set_source(source, at(rep(0, n))) %>%
    activate(source)
}

add_idle_source <- function(.env, name_prefix, trajectory, ...) {
  .env %>%
    add_generator(name_prefix, trajectory, at(-1), ...)
}

restock <- trajectory() %>%
  log_("restock")

serve <- trajectory() %>%
  log_("serve") %>%
  trigger_arrivals("Restock")

env %>%
  add_generator("Customer", serve, at(1, 2, 3)) %>%
  add_idle_source("Restock", restock) %>%
  run()

[Enchufa2]

Superseded by r-simmer/simmer#160.