在 Shiny 中使用 checkboxGroupInput 的未选中框

Question

编辑：我最初的问题是关于 checkboxInput()，但我已更新为 checkboxGroupInput() 以更好地反映我的问题...

我正在尝试让我的 Shiny 应用根据 checkboxGroupInput 的（未）选中状态来做两件事之一。

选中这些框后，我可以让我的代码工作。但是，我不知道如何使取消选中所有框导致独特的结果。

我该怎么做？

这个google groups question 4 多年前问过这个问题，但当时的回答是这只是一个错误。我假设这个问题已经解决了？？

以下是可重现的示例。 - 在此示例中，取消选中该框会导致错误读取“如果：参数长度为零时出错。”

library(shiny)

ui <-  fluidPage(
  checkboxGroupInput(inputId = "test.check", label = "", choices = "Uncheck For 2", selected = "Uncheck For 2"),
  verbatimTextOutput(outputId = "test")
)

server <- function(input, output) {

  output$test <- renderPrint({
    if(input$test.check == "Uncheck For 2") {
      1
    } else {
      2
    }
  })


}

shinyApp(ui = ui, server = server)

我可以使用“if.unchecked”类型的函数吗？

• 我在else 语句之后尝试了is.null，结果与上例相同......

Answer 1

这是有效的代码：

library(shiny)

ui <-  fluidPage(
  checkboxGroupInput(inputId="test.check", label="", choices="Uncheck For 2", selected="Uncheck For 2"),
  verbatimTextOutput(outputId = "test")
)

server <- function(input, output) {
  output$test <- renderPrint({
    if(!is.null(input$test.check)) {
      1
    } else{
      2
    }
  })
}

shinyApp(ui = ui, server = server)