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”类型的功能？

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

Answer 1

以下代码有效：

在Shiny中使用checkboxGroupInput取消选中框

1 个答案: