Shiny pickerInput：点击选项批量选组内项并保持下拉展开

原代码中调用updatePickerInput会重新渲染下拉组件，导致菜单自动收起。以下两种方案可以解决这个问题：

方案一：客户端JavaScript处理（推荐） #

直接在客户端处理选中逻辑，无需触发组件重新渲染，菜单不会出现收起再展开的闪烁，体验更流畅。

完整代码：

library(shiny)
library(shinyWidgets)

choices <- c("All_UPPER", "a", "b", "c", "A", "B", "C")

ui <- fluidPage(
  pickerInput(
    "group_select", 
    choices = choices, 
    multiple = TRUE,
    options = list(actionsBox = TRUE) # 可选，添加全选/取消全选按钮
  ),
  textOutput("testOutput"),
  tags$script(HTML("
    $(document).ready(function() {
      $('#group_select').on('changed.bs.select', function(e) {
        const $picker = $(this);
        const allUpperVal = 'All_UPPER';
        const upperVals = ['A', 'B', 'C'];
        
        // 检查是否选中了All_UPPER
        if ($picker.val()?.includes(allUpperVal)) {
          // 收集所有未被选中的目标选项
          const missingVals = upperVals.filter(val => !$picker.val().includes(val));
          if (missingVals.length > 0) {
            // 更新选中值
            $picker.selectpicker('val', [...$picker.val(), ...missingVals]);
          }
          // 保持菜单展开（延迟执行确保覆盖默认收起动作）
          setTimeout(() => $picker.selectpicker('show'), 10);
        }
      });
    });
  "))
)

server <- function(input, output, session) {
  output$testOutput <- renderText({paste(input$group_select)})
}

shinyApp(ui = ui, server = server)

关键说明：

• 监听bootstrap-select原生事件changed.bs.select，捕捉选择变化
• 直接调用selectpicker('val')更新选中值，不会触发组件重新渲染
• 用setTimeout延迟展开菜单，确保覆盖组件默认的选中后收起行为

方案二：Server端更新+JS强制展开 #

保留server端的逻辑，在更新后通过自定义消息通知客户端展开菜单，同时修复原代码的循环触发问题。

完整代码：

library(shiny)
library(shinyWidgets)

choices <- c("All_UPPER", "a", "b", "c", "A", "B", "C")

ui <- fluidPage(
  pickerInput("group_select", choices = choices, multiple = TRUE),
  textOutput("testOutput"),
  tags$script(HTML("
    // 监听来自server的自定义消息，展开指定picker
    Shiny.addCustomMessageHandler('showPicker', function(data) {
      $('#' + data.id).selectpicker('show');
    });
  "))
)

server <- function(input, output, session) {
  all_upper <- c("A", "B", "C")
  
  output$testOutput <- renderText({paste(input$group_select)})

  observeEvent(input$group_select, {
    req(input$group_select)
    if ("All_UPPER" %in% input$group_select) {
      // 检查是否有未选中的目标选项，避免循环触发
      missing_upper <- setdiff(all_upper, input$group_select)
      if (length(missing_upper) > 0) {
        new_selected <- c(input$group_select, missing_upper)
        updatePickerInput(session, "group_select", selected = new_selected)
        // 发送消息让客户端展开菜单
        session$sendCustomMessage(type = "showPicker", message = list(id = "group_select"))
      }
    }
  })
}

shinyApp(ui = ui, server = server)

关键说明：

• 添加setdiff检查未选中的选项，只有当存在未选中项时才执行更新，避免无限循环
• 使用session$sendCustomMessage向客户端发送指令，客户端JS调用selectpicker('show')展开菜单

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