Реактивные значения не могут быть преобразованы в обычный список
Мне нужен цикл, в котором мне нужно создать список, а затем использовать
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))
``