私はこのようなコードに何かを持っている光沢のある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を使用して出力を表示しています。このエラーで このコードの結果：temp_data_frame <- reactive(rbind(temp_data_frame(), d_frame2())) エラーを作成されています

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

私は、この行があることが分かりました。どのようにこれを解決できますか？助けてください。

Answer 1

関数定義の再帰が多くの（無限の）評価を引き起こしています。 行をまとめて削除するとどうなりますか？または、2番目の関数の名前を変更してください。

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

私はちょうど再帰関数で同様の問題がありました。