Seize jumps the queue if there is room in the server

[Enchufa2]

Example:

library(simmer)

dummy <- function(n)
  trajectory() %>%
    seize("res", n) %>%
    timeout(10) %>%
    release("res", n)

env <- simmer(verbose = TRUE) %>%
  add_resource("res", 10) %>%
  add_generator("dummy7", dummy(7), at(0, 1)) %>%
  add_generator("dummy1", dummy(1), at(2)) %>%
  run()

get_mon_arrivals(env)
#>      name start_time end_time activity_time finished replication
#> 1 dummy70          0       10            10     TRUE           1
#> 2 dummy10          2       12            10     TRUE           1
#> 3 dummy71          1       20            10     TRUE           1