Реактивные значения не могут быть преобразованы в обычный список

Мне нужен цикл, в котором мне нужно создать список, а затем использовать rbindlist создать data.frame или 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))
``

0 ответов

Другие вопросы по тегам