Shiny: sélecteur tout ou rien pour les groupes de cases à cocher

Je pense que vous pouvez y parvenir en updateCheckboxGroupInput() . Un exemple:

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
      )
    })
  }
))

J'aime cela! Une solution élégante !

Serait-il pertinent de rouvrir cette suggestion ?

Lors de l'utilisation shiny avec flexdashboard , il serait plus facile pour les utilisateurs de base d'avoir une option simple directement dans checkboxGroupInput () .

Meilleures salutations