Shiny中如何让全选的PickerInput显示‘all’并点击展开选项

要实现全选时仅显示all、点击后展开所有选项的效果，同时保证输出内容不受影响，以下提供两种可行方案：

方案一：基于pickerInput的自定义JS实现 #

通过注入JavaScript代码修改pickerInput的显示逻辑，保留原生全选功能的同时，在收起下拉框时自动替换显示文本为all。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  uiOutput("pick"),
  verbatimTextOutput("PR"),
  # 自定义JS逻辑
  tags$script(HTML("
    // 下拉框展开时，恢复正常选中文本显示
    $(document).on('shown.bs.select', '#p9', function() {
      $(this).data('selectedTextFormat', 'values');
      $(this).selectpicker('refresh');
    });
    
    // 下拉框收起时，判断是否全选并修改显示文本
    $(document).on('hide.bs.select', '#p9', function() {
      const $picker = $(this);
      const totalOptions = $picker.find('option').length;
      const selectedOptions = $picker.find('option:selected').length;
      
      if (totalOptions === selectedOptions) {
        $picker.data('selectedTextFormat', 'static');
        $picker.find('.filter-option-inner-inner').text('all');
        $picker.selectpicker('refresh');
      } else {
        $picker.data('selectedTextFormat', 'values');
        $picker.selectpicker('refresh');
      }
    });
  "))
)

server <- function(input, output, session) {
  output$pick<-renderUI({
    pickerInput(
      inputId = "p9",
      label = "Health Insurance",
      choices = unique(as.character(iris$Species)),
      width = "150px",
      selected = unique(as.character(iris$Species)),
      multiple = TRUE,
      options = list(
        `actions-box` = TRUE,
        `deselect-all-text` = "None",
        `select-all-text` = "All",
        `none-selected-text` = "zero"
      )
    )
  })
  
  output$PR<-renderPrint({
    input$p9
  })
}

shinyApp(ui, server)

逻辑说明 #

• 下拉框展开时，恢复默认显示模式，确保点击all后能看到全部选项；
• 下拉框收起时，判断是否选中所有选项，若是则将显示文本替换为all，否则正常显示选中项名称；
• input$p9始终返回实际选中的物种名称，输出内容不受影响。

方案二：基于selectInput的实现 #

通过添加all选项，结合服务器端逻辑处理选中状态，同样能达到需求效果。

library(shiny)

ui <- fluidPage(
  selectInput(
    inputId = "p9",
    label = "Health Insurance",
    choices = c("all", unique(as.character(iris$Species))),
    width = "150px",
    selected = "all",
    multiple = TRUE
  ),
  verbatimTextOutput("PR")
)

server <- function(input, output, session) {
  # 同步all选项与其他物种的选中状态
  observeEvent(input$p9, {
    req(input$p9)
    species_list <- unique(as.character(iris$Species))
    
    if ("all" %in% input$p9) {
      updateSelectInput(session, "p9", selected = c("all", species_list))
    } else if (setequal(input$p9, species_list)) {
      updateSelectInput(session, "p9", selected = character(0))
    }
  }, ignoreInit = FALSE)
  
  # 输出时排除all选项，保证内容与原需求一致
  output$PR<-renderPrint({
    req(input$p9)
    setdiff(input$p9, "all")
  })
}

shinyApp(ui, server)

逻辑说明 #

• 选中all时，自动选中所有物种选项；取消all时，清空其他选中项；
• 输出结果通过setdiff排除all，最终返回的内容与原代码完全一致。

内容的提问来源于stack exchange，提问作者firmo23