R 闪亮应用：根据下拉菜单选择读取.csv文件

我想开发一个闪亮的应用程序，可视化一组数据

该数据以CSV文件的集合形式提供，可从欧洲环境署下载，请参阅 . 文件Stations.csv包含关于每个站点的信息。 每个站点都有一个CSV文件，每个站点测量的污染物PM2.5、PM10、SO2和NO2并非每个站点都测量了所有污染物。文件名的格式为EoICode_PollutantCode.csv。这些文件的每一行都包含该站点每小时的污染物测量值

我需要处理300多个.csv文件，因此我想知道是否可以根据用户从ui中的下拉菜单中的选择来读取所需的.csv文件。换句话说，用户将选择所需的污染物，例如SO2，然后应用程序将读取名称模式为“*_SO2.csv”的所有.csv文件。 或者更好的方法是，根据站点的不同，也过滤可能要读取的.csv文件。 e、 g.用户从第一个下拉菜单中选择污染物S02，然后从第二个下拉菜单中选择一个站点，例如布拉格或多个站点，然后通过提交按钮提交选择，应用程序显示“Prague_SO2.csv”，然后绘制图表等

---

有什么想法吗？由于我对这个答案感到茫然

，您需要处理数据集对象

---

对于这个答案，您需要处理数据集对象

---

谢谢你！我一定会尝试这种方法。谢谢！我一定会尝试这种方法。

library(shiny)
library(DT)

# datasets <- list.files("~/Downloads/Wine_example/", pattern=".*.csv$")

datasets <- list(
  `red_wine` = read.csv("~/Downloads/Wine_example/winequality-red.csv"),
  `white_wine` = read.csv("~/Downloads/Wine_example/winequality-white.csv")
)


ui <- fluidPage(
  selectInput("data", "Pick a wine dataset:", choices = names(datasets)),
  dataTableOutput("table")
  )

server <- function(input, output, session) {
  output$table <- renderDataTable({
    req(input$data)
    datasets[[input$data]]
  })
}

shinyApp(ui, server)