r - 如何使用反应式编程计算闪亮的迭代函数

Question

我想构建一个闪亮的应用程序，它接受一个滑块输入（比如 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。

我不确定如何正确使用“反应式”环境来完成这项任务。任何建议将不胜感激。谢谢。

score 1 · Accepted Answer

我会把你那里的代码放在里面reactive({ ... })，最后一个表达式是list(x=x, y=y)。并更改k为input$k.

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

1 回答 1