r - 如何在 simmer R 中设置初始队列长度（queue_count）？

Question

我正在尝试使用不断变化的初始队列多次运行 simmer 环境。

如何设置初始队列？我试过set_queue_count()了，但是这个功能不存在。

如下可以看到代码：

library(simmer)

env = simmer()

traj = trajectory() %>%
  seize("res", 1) %>%
  timeout(1) %>%
  release("res", 1)



env %>%
  add_resource("res", 1) %>%
  add_generator("event", traj, function() rexp(1, 5)) %>%
  add_generator("starter", traj, at(rep(0, runif(1, 0, 5))) # The random number is only generatet once



n = 0

while(n < 10){
  reset(env)
  env %>%
    run(10)

  n = n + 1
}

我还尝试add_dataframe()使用在时间 0 到达的随机事件数，但不幸的是，数据帧在剧集中无法更改，因此初始队列保持不变。

整个环境最终被用于强化学习应用程序。