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))
  }
}

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

r r shiny shinydashboard