如何设置actionButton()或actionBttn()清除pickerInput()的所有选中项

直接看修改后的完整代码，已经实现点击按钮清空两个pickerInput的选中项，同时清除输出结果：

library(shiny)
library(shinyWidgets)
df <- mtcars

ui <- fluidPage(
  sidebarPanel(
    pickerInput("engine", "选择引擎类型:", choices = unique(df$vs),
                options = list(
                  `actions-box` = TRUE), 
                multiple = TRUE
    ),
    pickerInput("cylinder", "选择气缸数:", choices = unique(df$cyl),
                options = list(
                  `actions-box` = TRUE), 
                multiple = TRUE
    ),
    # 替换原生actionButton为actionBttn，自定义样式更直观
    actionBttn(inputId = "reset", label = "清空所有选择", 
               style = "unite", color = "danger", icon = icon("trash"))
  ),
  mainPanel(
    textOutput("results")
  )
)

server <- function(input, output, session) {
  data <- reactiveValues()
  
  observeEvent(input$cylinder, {
    tmp <- df
    tmp1 <- tmp[tmp$vs %in% input$engine, ]
    tmp2 <- tmp1[tmp1$cyl %in% input$cylinder, ]
    data$tmp2 <- tmp2
  })

  output$results <- renderText({
    if(is.null(data$tmp2)) return("") # 返回空字符串避免输出区域异常留白
    paste("筛选结果：", paste(row.names(data$tmp2), collapse = ", "))
  })
  
  observeEvent(input$reset, {
    # 用selected = character(0)确保多选框彻底清空，比传NULL更稳妥
    updatePickerInput(session, "engine", selected = character(0))
    updatePickerInput(session, "cylinder", selected = character(0))
    data$tmp2 <- NULL # 清空反应值触发输出更新
  })  
}

shinyApp(ui = ui, server = server)

关键修改说明 #

• 按钮替换：用actionBttn替代原生按钮，通过样式、颜色和图标设置，让清除按钮视觉更醒目
• pickerInput清空逻辑：改用selected = character(0)参数，确保多选选择框的选中状态完全清空
• 输出优化：renderText返回空字符串替代直接返回，避免输出区域出现突兀留白

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