如何在shinyWidgets pickerInput全选时显示‘total’文本

没问题，我帮你搞定这个需求！要让pickerInput在全选所有选项时显示文本“total”，而不是默认的计数格式，我们可以结合Shiny的响应式监听和动态更新组件的方法来实现，具体步骤和代码如下：

核心思路 #

由于pickerInput原生的count-selected-text参数无法直接区分“全选”和“多选但未全选”的场景，我们需要：

1. 提前定义选项列表并计算总选项数，方便后续判断全选状态
2. 在Server端监听选中项的变化，根据选中数量动态修改pickerInput的显示文本规则

修改后的完整代码 #

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

# 提前定义选项列表，方便复用和计算总数
fruit_choices <- c("Banana", "Blueberry", "Cherry", "Coconut", "Grapefruit", "Kiwi", "Lemon", "Lime", "Mango", "Orange", "Papaya")
total_fruits <- length(fruit_choices)

ui <- fluidPage(
  column(
    width = 4,
    pickerInput(
      inputId = "id",
      label = "Choices :",
      choices = fruit_choices,
      options = list(
        `actions-box` = TRUE,
        `selected-text-format` = "count > 2",
        `count-selected-text` = "{0}/{1} fruits"
      ),
      multiple = TRUE
    )
  ),
  verbatimTextOutput("res") # 保留输出用于测试选中结果
)

server <- function(input, output, session) {
  # 监听选中项变化，动态更新显示规则
  observe({
    selected_count <- length(input$id)
    
    if (selected_count == total_fruits) {
      # 全选状态：设置显示文本为"total"
      updatePickerInput(
        session = session,
        inputId = "id",
        options = list(`count-selected-text` = "total")
      )
    } else if (selected_count > 2) {
      # 多选但未全选：恢复计数格式
      updatePickerInput(
        session = session,
        inputId = "id",
        options = list(`count-selected-text` = "{0}/{1} fruits")
      )
    }
    # 选中1-2项时，组件会自动显示具体选项，无需额外处理
  })

  output$res <- renderPrint({
    input$id
  })
}

shinyApp(ui = ui, server = server)

效果说明 #

• 选中1-2个水果时：输入框直接显示选中的水果名称
• 选中3-10个水果时：输入框显示{选中数}/{总数} fruits的计数格式，比如5/11 fruits
• 全选所有11个水果时：输入框自动切换为显示total

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