Me encantaría que checkboxGroupInput
(opcionalmente) tuviera un cuadro de seleccionar todo/no seleccionar ninguno asociado con el grupo.
Creo que puedes lograr esto por updateCheckboxGroupInput()
. Un ejemplo:
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
)
})
}
))
¡Me encanta esto! ¡Una solución elegante!
¿Podría ser relevante reabrir esa sugerencia?
Al usar shiny
con flexdashboard
, sería más fácil para los usuarios básicos tener una opción simple directamente dentro checkboxGroupInput ()
.
Atentamente
Comentario más útil
Creo que puedes lograr esto por
updateCheckboxGroupInput()
. Un ejemplo: