Shiny: Alles-oder-Nichts-Selektor für Kontrollkästchengruppen

Ich denke, Sie können dies mit updateCheckboxGroupInput() erreichen. Ein Beispiel:

myChoices <- letters[1:5]
runApp(list(
  ui = basicPage(
    checkboxGroupInput('foo', 'FOO', myChoices),
    checkboxInput('bar', 'All/None')
  ),
  server = function(input, output, session) {
    observe({
      updateCheckboxGroupInput(
        session, 'foo', choices = myChoices,
        selected = if (input$bar) myChoices
      )
    })
  }
))

Ich liebe es! Eine elegante Lösung!

Könnte es relevant sein, diesen Vorschlag erneut zu öffnen?

Bei der Verwendung shiny mit flexdashboard wäre es für einfache Benutzer einfacher, eine einfache Option direkt in checkboxGroupInput () zu haben.

Mit freundlichen Grüßen