I have a code something like this:
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))
In d_frame2, I am getting new data each time loop is run. I am creating another temp_data_frame with the same column name as d_frame2, so that appending will be easy. Finally, using renderDataTable I am showing the output. This code results in this error:
evaluation nested too deeply: infinite recursion / options(expressions=)?
I found out that this line: temp_data_frame <- reactive(rbind(temp_data_frame(), d_frame2()))
is creating the error. How this can be resolved? Please help.