R/Shiny：使用上传文件中的标题填充 SelectInput 选项答案

【问题标题】：R/Shiny: Populate SelectInput Options using Headers From Uploaded FileR/Shiny：使用上传文件中的标题填充 SelectInput 选项
【发布时间】：2021-12-04 15:23:45
【问题描述】：

我正在尝试使用 R Shiny 构建一个页面：

用于上传 CSV 文件的文件小部件
一个 SelectInput 组件

我想按如下方式使用这些：

上传有效的 CSV 文件后，填充 SelectInput，其选项是 CSV 文件中的标头，默认选择第一个标头

到目前为止，我已经尝试了各种形式的observe() 和observeEvent()，但都没有成功地实现这一点。您可能有任何建议都会很棒。

【问题讨论】：

标签： r shiny selectinput

【解决方案1】：

这是一个选项 -

library(shiny)

#Sample data
#write.csv(mtcars, 'data.csv', row.names = FALSE)

ui <- fluidPage(
  fileInput('file', 'Upload csv file'),
  uiOutput('dropdown')
)

server <- function(input, output) {
  data <- reactive({
    req(input$file)
    read.csv(input$file$datapath)
  })
  
  output$dropdown <- renderUI({
    req(data())
    selectInput('cols', 'Select Column', names(data()))
  })
}


shinyApp(ui, server)

【讨论】：