SelectInput选项不会根据在Shiny中选择的csv文件动态填充

library(shiny)

ui <- fluidPage(
  titlePanel("动态填充SelectInput选项"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "选择CSV文件")
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
)

server <- function(input, output) {
  observeEvent(input$file, {
    data <- readr::read_csv(input$file$datapath)
    # 在这里根据csv文件的内容动态填充SelectInput选项
  })
  
  output$result <- renderPrint({
    # 在这里显示结果
  })
}

server <- function(input, output) {
  observeEvent(input$file, {
    data <- readr::read_csv(input$file$datapath)
    # 获取csv文件中的列名作为SelectInput选项的选项列表
    options <- colnames(data)
    # 更新SelectInput选项的选项列表
    updateSelectInput(session, "select", choices = options)
  })
  
  output$result <- renderPrint({
    # 在这里显示结果
  })
}

ui <- fluidPage(
  titlePanel("动态填充SelectInput选项"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "选择CSV文件"),
      selectInput("select", "选择列名", choices = NULL)
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
)