pickerInput未清除所有选项

pickerInput未清除所有选项,r,shiny,R,Shiny,我在清除用户在shinyWidget包的pickerInput下选择的选项时遇到问题。下面是代码: library(shinyWidgets) library(shiny) shinyApp( ui = basicPage( actionButton("show", "Click me!") ), server = function(input, output){ observeEvent(input$show, { showModal(

我在清除用户在
shinyWidget
包的pickerInput下选择的选项时遇到问题。下面是代码:

library(shinyWidgets)
library(shiny)

shinyApp(
  ui = basicPage(
    actionButton("show", "Click me!")
  ),

  server = function(input, output){

    observeEvent(input$show, {
      showModal(
        modalDialog(
          h2("Select Years", align = "center"),
          pickerInput(inputId = "Yearz", label = NULL, 
                      choices = c(2012:2017), options = list(
                        `selected-text-format` = "count > 3", `actions-box` = TRUE), 
                      multiple = TRUE, width = "100%")
        )
      )
    })

    observeEvent(input$Yearz, {
      print(input$Yearz)
    }
    )
  }
)

我注意到,当取消选择最后一个选项时,无论是通过“全部取消选择”按钮还是通过手动方式,最后一个选项仍保留在输入$Yearz下。有没有办法使输入$Yearz中的值全部为空?

当在
选择器输入
中未选择任何选项时,服务器中的值为
观察事件
忽略
,因此请执行以下操作:

observeEvent(input$Yearz, {
  print(input$Yearz)
}, ignoreNULL = FALSE)