R selectInput不返回ALL，并将因子转换为shiny 的数字

在Shiny中，我希望在使用selectInput时能够 Select All.

然而，在下面的shinshine应用程序中，当我将selectInput用于列Species，并将选项All用于choices时，shinshine将列转换为number(而不是因子).

library(shiny)
library(palmerpenguins)

# Load the palmerpenguins dataset
data("penguins")

# Define UI
ui <- fluidPage(
  titlePanel("Penguin Species Selector"),
  
  sidebarLayout(
    sidebarPanel(
      selectInput("species", "Select Species:",
                  choices = c("All", unique(penguins$species))),
      hr(),
      helpText("Select a species to view its data.")
    ),
    
    mainPanel(
      tableOutput("penguin_table")
    )
  )
)

# Define server logic
server <- function(input, output) {
  output$penguin_table <- renderTable({
    if (input$species == "All") {
      return(penguins)
    } else {
      return(subset(penguins, species == input$species))
    }
  })
}

# Run the application
shinyApp(ui = ui, server = server)

当我删除All并使用这个choices = unique(penguins$species)(见下文)，shiny 的应用程序将显示列作为一个因素，但现在我不能 Select All

library(shiny)
library(palmerpenguins)

# Load the palmerpenguins dataset
data("penguins")

# Define UI
ui <- fluidPage(
  titlePanel("Penguin Species Selector"),
  
  sidebarLayout(
    sidebarPanel(
      selectInput("species", "Select Species:",
                  choices = unique(penguins$species)),
      hr(),
      helpText("Select a species to view its data.")
    ),
    
    mainPanel(
      tableOutput("penguin_table")
    )
  )
)


# Define server logic
server <- function(input, output) {
  output$penguin_table <- renderTable({
    if (input$species == "All") {
      return(penguins)
    } else {
      return(subset(penguins, species == input$species))
    }
  })
}

# Run the application
shinyApp(ui = ui, server = server)