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