处理R中的循环

Question

我的数据如下：

Schedule<-data.frame("Task"=c("A","B","C","D"),"CycleTask"=c(100,150,120,30))
FDate<-data.frame("Date"=seq(1:6),"Cycle"=c(90,100,130,150,170,200))
  Task TaskCycle
1    A       100
2    B       150
3    C       120
4    D        30
  Date Cycle
1    1    90
2    2   100
3    3   130
4    4   150
5    5   170
6    6   200

每个任务都有一个必需的周期，并随时间重复。如果任务完成，它将再次计为循环。例如：任务D每30个循环重复一次 我想找到执行任务所需的日期。像这样

  Date Cycle Task
1    1    90    D
2    2   100    A
3    3   130    C,D
4    4   150    B
5    5   170    D
6    6   200  A,D

如何使用循环功能来处理此循环？