当在R / Shiny中取消选择最后一个选择时，如何选择全部？

Question

如果取消选中checkboxGroupInput中的最后一个选项，如何选择全部？

我试过了：

if (input$checkboxGroupInput == NULL){

      updateCheckboxGroupInput(session, inputId = "checkboxGroupInput",
                               choices = year,
                               selected = year,
                               inline = TRUE)

    }

但它返回：“警告：观察者中未处理的错误：参数长度为零”

Answer 1

这不是检查列表元素是否为NULL的正确方法。你的方式返回logical(0)，当在if语句中计算时会抛出你得到的错误。正确的方法是is.null()，它返回TRUE或FALSE。

> test <- list(foo=1)
> is.null(test$bar)
[1] TRUE
> test$bar == NULL
logical(0)

你的第一行应该是：

if ( is.null(input$checkboxGroupInput) ) {
  ...
}