r - Shiny 的 selectInput 从下拉列表中选择所有内容

Question

我有 selectInput下拉是这样的:

selectInput("locInput", "Location", choices=c("All","New Mexico", "Colorado", "California"))

我想要实现的是默认情况下使 selectInput 不过滤任何东西，就像选择“全部”时一样，它应该列出所有观察结果(因此来自加利福尼亚、科罗拉多等)
所以我试图做的是为此创建简单的逻辑:

server <- function(input, output) {
  filtered<-reactive({
    shows %>%
    filter(Length >= input$lenInput[1],
           Length <= input$lenInput[2],
           if (input$locInput != "All"){
           Location==input$locInput
    })

但这似乎不起作用。
任何想法我可以改变什么才能使其正常工作？

Answer 1

有精彩shinyWidgets已经有 Select All 的包功能在其 pickerInput

library(shiny)
library(shinyWidgets)

ui <- basicPage(
  sidebarPanel(
    pickerInput("locInput","Location", choices=c("New Mexico", "Colorado", "California"), options = list(`actions-box` = TRUE),multiple = T)
  )
)

server <- function(input, output) {

  observe({
    print(input$locInput)
  })

}

shinyApp (ui = ui, server = server)