R Shiny 取消选中带有操作按钮的复选框组

Question

我有包含所选项目的 checkboxGroup 和 actionButton。我需要在 actionButton 上单击取消选中 checkBoxGroup。

          wellPanel(
             checkboxGroupInput(datename, "Select dates:", some_dates,
                                selected = outlier_dates_to_select),
             actionButton("buttonname", "Uncheck all")
        ) 

有什么建议吗？我该如何管理？

非常感谢!

Answer 1

您必须像这样使用 actionButton :

在 ui.R 中:

shinyUI(pageWithSidebar(
  headerPanel(title=""),
  sidebarPanel(
    checkboxGroupInput("Test1", "Test1", choices=c("1","2","3"), selected="1"),
    checkboxGroupInput("Test2", "Test2", choices=c("1","2","3"), selected="2"),
    actionButton("Uncheck", label="Uncheck")
  ),
  mainPanel()
))

在 server.R 中:

shinyServer(function(input, output, session) {
  observe({
   if (input$Uncheck > 0) {
      updateCheckboxGroupInput(session=session, inputId="Test1", choices=c("1","2","3"), selected=NULL)
      updateCheckboxGroupInput(session=session, inputId="Test2", choices=c("1","2","3"), selected=NULL)
   }
 })
})

您必须重复 updateCheckboxGroupInput 中的选择才能使其正常工作。