R shiny uncheck 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 чтобы он работал.