如何在shiny中的SelectInput上添加参数"All“？

library(shiny)

ui <- fluidPage(
  selectInput("select", "Select Options:",
              choices = c("All", "Option 1", "Option 2", "Option 3")),
  textOutput("selected")
)

server <- function(input, output) {
  output$selected <- renderText({
    if (input$select == "All") {
      "All options selected"
    } else {
      paste("Selected:", input$select)
    }
  })
}

shinyApp(ui, server)

server <- function(input, output) {
  dataToShow <- reactive({
    if (input$select == "All") {
      # 返回所有数据
      allData
    } else {
      # 返回选定的数据
      subset(allData, condition == input$select)
    }
  })
  
  output$dataDisplay <- renderTable({
    dataToShow()
  })
}