r - 清除多个 selectizeInput 时如何在 shiny 中触发 observeEvent

Question

我希望在清除输入列表时触发 observeEvent。

这是一个小示例应用程序:

library(shiny)

ui <- fluidPage(

  selectizeInput(inputId='select',
                 label='Select something',
                 multiple=TRUE,
                 choices=letters[1:3])
)

server <- function(input, output){

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

shinyApp(ui=ui, server=server)

现在，每次我选择另一个字母时，都会触发 observeEvent。删除一个字母也会触发该事件。但是，删除最后一个字母似乎不会触发任何事情。

我尝试了解决方案 here但它似乎不适用于我的情况(或者我无法让它发挥作用)。

所以我的预期输出是，在选择 a 后它会打印 "a"，但在删除 a 之后，它会打印一些东西以及(无论是 NULL 还是 "")。

Answer 1

observeEvent 有很多参数

observeEvent(eventExpr, handlerExpr, event.env = parent.frame(),event.quoted = FALSE, handler.env = parent.frame(),handler.quoted = FALSE, label = NULL, suspended = FALSE, priority = 0,domain = getDefaultReactiveDomain(), autoDestroy = TRUE,ignoreNULL = TRUE, ignoreInit = FALSE, once = FALSE)

包括 ignoreNULL，默认设置为 TRUE，只需将其更改为 FALSE

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