小编cha*_*off的帖子

我正在开发 R Markdown Shiny 文档来：

1. 对数据框进行子集化以包含“日期”列和一些数字数据列。设置闪亮的用户输入的方式，您选择要包含的数据列的单选按钮，然后单击“子集数据”按钮进行创建d()- 没有问题:)
2. 生成一个绘图列表 ( plotList)，每个数值数据列一个（针对日期列绘制）。我正在使用openair包timePlot函数来生成绘图，并lapply生成绘图对象列表（plotList） - 没有问题:)
3. 用于renderPlot将所有绘图输出plotList到 R Markdown 文档中 - 问题:(

我知道也有类似的问题（例如https://gist.github.com/wch/5436415/，R闪亮的反应性与玩具示例，并使用闪亮动态添加绘图到网页），请相信我我已经尝试过并尝试过（例如，使用 for 循环而不是 lapply - 不是我的偏好，但如果它有效那么谁在乎；添加 local() 和/或observe()；等等）。无论我做什么，我都无法让它发挥作用。我是 R Markdown 和 Shiny 的新手，我只是无法弄清楚这一点 - 请帮忙！

这是一个可重现的示例（作为 R markdown 闪亮文档运行）。

首先是创建反应式数据集的块d()：

```{r reactive-dataset, echo=FALSE,message=FALSE}
library(openair)
library(dplyr)
data<-mydata[1:50,]
print(tbl_df(data))

inputPanel(
  checkboxGroupInput(inputId="p",
                label="select pollutants to plot",
                choices=names(data)[-1]
              ),
  actionButton(inputId="import",
               label="Subset Data")
)


d<-eventReactive(input$import,{ …