Shiny - 如何创建可重用的绘图函数

如何解决Shiny - 如何创建可重用的绘图函数

我创建了一个带有许多选项卡的闪亮应用程序，其中每个选项卡对应于列表中的一个数据框（在下面的示例中调用 my.data）。由于所有选项卡都具有相同的初始绘图，因此我创建了一个通用绘图函数，并将它应该绘图的项目的名称 (my.data[[item.name]]) 传递给它。

我面临的问题是，当我切换选项卡时，作为参数传递给 item.name 函数的 create_plot 不正确。它总是传递列表的最后一项。我假设发生这种情况是因为变量不是反应性的，但我不知道如何解决这个问题。

server <- function(input,output) {
  for(item.name in names(my.data)) {
    adjusted.name <- gsub('-','.',gsub(' ',tolower(item.name),fixed = T))
    output[[paste0('plot.',adjusted.name)]] <- renderPlot(create_plot(input,item.name))
  }
}