r - リアクティブプログラミングを使用して光沢のある反復関数を計算する方法

Question

1 つのスライダー入力 (k など) を受け取り、次のように定義された、それぞれ長さ 10 のベクトル x と y を計算する光沢のあるアプリを構築したいと考えています。

x[1] = 1
y[1] = 2
    for ( i in 2:10 ){
        x[i] = k*x[i-1] + y[i-1]
        y[i] = x[i]/k + x[i-1] + 2*y[i-1]
                     }

次に、y 対 x をプロットします。

このタスクを達成するために「リアクティブ」環境を正しく使用する方法がわかりません。どんな提案でも大歓迎です。ありがとう。

Answer 1

そこにあるコードを中に入れreactive({ ... })て、最後の式をlist(x=x, y=y). に変更kしinput$kます。

foo <- reactive({ ... })
output$plot <- renderPlot({
    plot(foo()$x, foo()$y)
})