R Shiny中updatePickerInput()能否启用多选功能？

updatePickerInput()本身没有独立激活多选的配置项，多选能力需要在UI端初始化pickerInput时提前开启，后续更新操作直接适配多选逻辑即可，核心操作要点如下：

• 初始化阶段开启多选：在UI侧的pickerInput()函数中添加multiple = TRUE参数，把控件从默认单选模式切换为多选模式，这是实现多选更新的必要前提，未做该配置时，无论后续如何调用更新函数，控件都只能单选。
• 更新阶段适配多选逻辑：调用updatePickerInput()时，既可以全量替换可选选项列表，也可以通过selected参数传入字符向量，批量设置多个选中值；如果要实现「不符合筛选条件的选项置灰不可选」的效果，不需要全量替换choices，直接通过choicesOpt参数传入禁用规则即可，交互连贯性更好。

修改后的可运行示例 #

library("shiny")
library("shinyWidgets")

ui <- fluidPage(
  tags$h2("pickerInput 多选更新测试"),
  
  fluidRow(
    column(
      width = 5, offset = 1,
      pickerInput(
        inputId = "p1",
        label = "车型选择（支持多选）",
        choices = rownames(mtcars),
        multiple = TRUE, # 核心配置：开启多选模式
        options = list(`actions-box` = TRUE) # 可选配置：添加全选/清空快捷按钮
      )
    )
    
  ),
  
  fluidRow(
    column(
      width = 10, offset = 1,
      sliderInput(
        inputId = "up",
        label = "筛选mpg大于等于设定值的车型：",
        width = "50%",
        min = min(mtcars$mpg),
        max = max(mtcars$mpg),
        value = min(mtcars$mpg),
        step = 0.1
      )
    )
  )
  
)

server <- function(input, output, session) {
  
  observeEvent(input$up, {
    mtcars2 <- mtcars[mtcars$mpg >= input$up, ]
    valid_choices <- rownames(mtcars2)
    
    # 方案1：直接替换可选选项范围，自动保留当前选中的合法值
    updatePickerInput(session = session, inputId = "p1",
                      choices = valid_choices)
    
    # 方案2：保留全量选项，仅将不符合条件的选项置灰禁用（交互更流畅，推荐）
    # disabled_choices <- !rownames(mtcars) %in% valid_choices
    # updatePickerInput(
    #   session = session, 
    #   inputId = "p1",
    #   choices = rownames(mtcars),
    #   choicesOpt = list(disabled = disabled_choices)
    # )
    
  }, ignoreInit = TRUE)
  
}

shinyApp(ui = ui, server = server)

补充说明：如果初始pickerInput未配置multiple = TRUE，后续仅通过updatePickerInput()无法将控件切换为多选模式，必须在UI初始化阶段完成该属性配置。

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