在闪亮的 R 中附加一个反应数据框

Question

我有一个类似这样的代码：

for( #loop starts ....
    temp_data_frame <- reactive(d_frame2()[0,]) #only for if i = 1
    temp_data_frame <- reactive(rbind(temp_data_frame(), d_frame2())) 
    )#for loop ends

subset_dataset <-eventReactive(input$go, {temp_data_frame()})
renderDataTable( subset_dataset(), options = list(pageLength = 15))

在 d_frame2 中，每次运行循环时我都会获取新数据。我正在创建另一个与 d_frame2 具有相同列名的 temp_data_frame，因此附加将很容易。最后，使用 renderDataTable 我正在显示输出。 此代码导致此错误：

evaluation nested too deeply: infinite recursion / options(expressions=)?

我发现这条线：temp_data_frame <- reactive(rbind(temp_data_frame(), d_frame2())) 正在创建错误。如何解决？请帮忙。

Answer 1

函数定义中的递归导致许多（无限？）评估。 如果你把这条线一起去掉怎么办？或者重命名第二个函数，所以

    temp_data_frame2 <- reactive(rbind(temp_data_frame(), d_frame2()))

我刚刚遇到了与递归函数类似的问题。