在闪亮的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()))

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