通过updatePickerInput全部取消选择闪亮的R

Question

我的闪亮应用程序只有几个pickerInput元素。 默认情况下，不选择任何内容。

pickerInput(
  inputId = "pickerInput1", 
  label = NULL, 
  choices = c("Yes", "No"), 
  options = list(
    `actions-box` = TRUE, 
    size = 12,
    `selected-text-format` = "count > 3"
  ), 
  multiple = TRUE
)

问题是我不知道在单击特殊按钮后如何清除所有这些内容（转到默认值）。 不幸的是，我很可能不知道如何使用updatePickerInput。 我试过了：

  observeEvent(input$Clear_FilterButton,     {
    updatePickerInput(session, "pickerInput1", selected = NULL)
  })

但它不起作用:(任何想法，我在做什么错了吗？

Answer 1

如果您使用的pickerInput来自shinyWidgets的pickerInput ， shinyWidgets actions-box设置为TRUE默认构建“全 选”和“ 取消全选”按钮。 您不需要updatePickerInput 。 单击您的pickerInput来查看这些按钮。

请参考文档以获取更多详细信息：
https://github.com/dreamRs/shinyWidgets

更新后发表您的评论：

您的评论使问题更加明确。 您可以简单地使用selected = ""而不是selected = NULL 。 这是一个工作示例：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "pickerInput1", 
    label = NULL, 
    choices = c("Yes", "No"), 
    options = list(
      `actions-box` = TRUE, 
      size = 12
    ), 
    multiple = TRUE
  ),

  actionButton(
    inputId = "Clear_FilterButton",
    label = "Clear"
  )
)

server <- function(session, input, output) {
  observeEvent(input$Clear_FilterButton, {
    updatePickerInput(
      session, 
      "pickerInput1", 
      selected = ""
    )
  })
}

shinyApp(ui = ui, server = server)