Closed
Description
Only when the handler is interruptible
:
library(simmer)
new_timeout <- trajectory() %>%
log_("new timeout") %>%
timeout(1)
customer <- trajectory() %>%
trap("signal", new_timeout) %>%
timeout(5) %>%
log_("out")
blocker <- trajectory() %>%
send("signal") %>%
send("signal")
simmer() %>%
add_generator("customer", customer, at(0)) %>%
add_generator("blocker", blocker, at(2)) %>%
run(10)
#> 2: customer0: new timeout
#> 3: customer0: new timeout
#> 4: customer0: new timeout
#> 5: customer0: new timeout
#> 6: customer0: new timeout
#> 7: customer0: new timeout
#> 8: customer0: new timeout
#> 9: customer0: new timeout