r - 反应值不能转换为常规列表

Question

我需要有一个循环，我需要在其中创建一个列表，然后使用它rbindlist来创建一个data.frameor data.table，将其传递给FunctionC. 但是下面的代码不起作用。我尝试了许多修改无济于事。

      DataZ <- reactiveValues()
      for (iPd in 1:3) {
        dataA <- reactive(do.call(FunctionA, FunctionB(Pd=iPd, prefix='a')))
        dataB <- reactive(do.call(FunctionA, FunctionB(Pd=iPd, prefix='b')))
        DataX <- reactive({  
          data <- list(dataA=cbind(Scenario='Current',dataA()),dataB=cbind(Scenario='New',dataB()))
          data <- rbindlist(data,fill=T)[, Paddock:=iPd]
          data <- data[sugarStatus=='alive']
          data
        })
        DataZ[[as.character(iPd)]] <- isolate(DataX)
      }
      DataX <- reactiveValuesToList(DataZ)
      SummaryTable <- reactive(FunctionC(DataX,input,Pd=1))
``