我有这样的代码:
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()))
正在创建错误。如何解决?请帮忙。