-1

次のようなコードがあります。

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())) この行:がエラーを作成していることがわかりました。これはどのように解決できますか？助けてください。

4

1 に答える 1

0

関数定義の再帰により、多くの (無限の?) 評価が発生しています。ラインをまとめて削除するとどうなりますか？または、2 番目の関数の名前を変更します。

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

再帰関数で同様の問題が発生しました。

于 2016-11-30T11:57:32.163 に答える