如何在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)) { 
    ... 
}