R闪亮取消选中checkboxGroup with actionbutton

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使其工作。