только первый updateCheckboxGroups работает в обозревателе

Question

У меня есть две checkboxGroupInputs и две кнопки.

• Кнопка «Все» выделяет все как в checkboxGroupsInputs, так и работает правильно.

• Предполагается, что кнопка «Нет» очищает все в обоих checkboxGroupInputs, но снимает только первый флажок.

Если я поменяю местами порядок updateCheckboxGroupInputsв слушателе кнопки «Нет» другая группа флажков не очищается.

Мне бы хотелось, чтобы одна кнопка / прослушиватель удалила обе группы флажков.

library(shiny)

# Define UI
ui <- fluidPage(
  actionButton("all_button", "All"),
  actionButton("none_button", "None"),

  checkboxGroupInput("A_checkbox", label = "A", choices = c('a','b','c')),
  checkboxGroupInput("Z_checkbox", label = "Z", choices = c('x','y','z'))
)

# Define server logic
server <- function(input, output, server, session) {

  observeEvent(input$all_button,{
    # both update
    updateCheckboxGroupInput(session, "A_checkbox", selected = c('a','b','c'))
    updateCheckboxGroupInput(session, "Z_checkbox", selected = c('x','y','z'))
  })

  observeEvent(input$none_button,{
    # the second one does not update
    updateCheckboxGroupInput(session, "A_checkbox", selected = NA)
    updateCheckboxGroupInput(session, "Z_checkbox", selected = NA)
  })
}

# Run the app
shinyApp(ui = ui, server = server)

Answer 1

Вы не можете использовать NA, но символ (0), чтобы отменить выбор флажка ввода группы.

observeEvent(input$none_button,{
  updateCheckboxGroupInput(session, "A_checkbox", selected = character(0))
  updateCheckboxGroupInput(session, "Z_checkbox", selected = character(0))
})

Пожалуйста, введите? UpdateCheckboxGroupInput в вашей консоли и посмотрите помощь.