Shiny:如何循环访问服务器datasetInput开关中ui selectInput选项中的变量名？

library(shiny)

ui <- fluidPage(
  selectInput("dataset", "选择数据集", choices = c("数据集1", "数据集2", "数据集3")),
  actionButton("submit", "提交"),
  textOutput("result")
)

server <- function(input, output, session) {
  observeEvent(input$submit, {
    dataset_name <- input$dataset
    dataset <- switch(dataset_name,
                      "数据集1" = dataset1,
                      "数据集2" = dataset2,
                      "数据集3" = dataset3)
    
    # 在这里可以使用dataset进行后续的数据处理或分析
    # ...
    
    output$result <- renderText({
      paste("选择的数据集是：", dataset_name)
    })
  })
}

shinyApp(ui, server)