Batches are triggered multiple times

[Enchufa2]

Reprex:

library(simmer)

t <- trajectory() %>%
  batch(1) %>%
  batch(1) %>%
  batch(1) %>%
  timeout(1)

simmer(verbose=TRUE) %>%
  add_generator("dummy", t, at(0)) %>%
  run()
#>          0 |    source: dummy            |       new: dummy0           | 0
#>          0 |   arrival: dummy0           |  activity: Batch            | 1, 0, 0, 
#>          0 |   arrival: batch0           |  activity: Batch            | 1, 0, 0, 
#>          0 |   arrival: batch2           |  activity: Batch            | 1, 0, 0, 
#>          0 |   arrival: batch4           |  activity: Timeout          | 1