Shiny: seletor de tudo ou nada para grupos de caixas de seleção

Eu acho que você pode conseguir isso por updateCheckboxGroupInput() . Um exemplo:

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

Eu amo isto! Uma solução elegante!

Seria relevante reabrir essa sugestão?

Ao usar shiny com flexdashboard , seria mais fácil para usuários básicos terem uma opção simples diretamente em checkboxGroupInput () .

Atenciosamente