没有在R中创建的发电机

Question

我的代码有一些困难... 我需要创建一个代码，以特定的时间表生成乘客和火车。 在下面的代码中，乘客会尽可能地创建乘客，但火车根本没有创建。 我尝试了一些可能的方法来解决此问题，但仍未找到一个问题。 你看到我缺少的东西吗？

火车生成器内部的功能：

TrainSchduale<- function(){
  if (now(TrainSim)<9*60){
    return(7*60)
  }
  else{
    return (16*60)
  }
}

生成器代码：

add_generator("Train", trainTraj,
    distribution = from_to( start_time=  1.5*60, 
                            stop_time= function ()TrainSchduale(), 
       dist = function () 44.99, arrive = TRUE, every = NULL), 
       mon=2)  %>%
  add_generator("RegularPassenger",priority = 0, regularTraj, 
     distribution = from_to(start_time=0, stop_time=16*60, 
     dist=function () exp(0.6912117), arrive = TRUE, every = NULL),
     mon=2) %>%
  add_generator("SoldierPassenger",priority = 1, soldierTraj, 
    distribution = from_to(start_time=0, stop_time=16*60, 
     dist=function () exp(0.513304), arrive = TRUE, every = NULL), 
     mon=2)