使用闪亮动态地将反应图添加到网页

Question

我正在尝试执行与此处说明的操作非常相似的操作，以使用Shiny动态将图添加到网页中 。

但是，我需要对renderPlot（server.r：line 28）中的plot函数进行等效调用，以使其具有反应性，仅在输入发生更改时才能调用。 在我的设置中，我有一个包含需要调用的函数名称的列表。

我提供了我想要的示例代码以及使用反应式回调的尝试。

for (i in 1:length(plot_list)) {
  local({
    my_i <- i
    plotname <- paste("plot_fn_name", my_i, sep="")
    output[[plotname]] <- renderPlot({
      args <- list(input$arg1, input$arg2, input$arg3)
      fn <- reactive({plot_list[[my_i]](args)})
      #p <- do.call(fn, args)
      p <- fn()
      print(p)
    })
  })
}

关于如何实现这一目标的任何想法？ 谢谢。