Ongoing arrivals are added to the monitoring data frame multiple times #240

library(simmer)

t <- trajectory() %>%
  timeout(10)

env <- simmer() %>%
  add_generator("dummy", t, at(0, 6)) %>%
  run(12)

get_mon_arrivals(env, ongoing=TRUE)
#>     name start_time end_time activity_time finished replication
#> 1 dummy0          0       10            10     TRUE           1
#> 2 dummy1          6       NA            NA    FALSE           1
get_mon_arrivals(env, ongoing=TRUE)
#>     name start_time end_time activity_time finished replication
#> 1 dummy0          0       10            10     TRUE           1
#> 2 dummy1          6       NA            NA    FALSE           1
#> 3 dummy1          6       NA            NA    FALSE           1