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

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。

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

Answer 1

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

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