updateCheckboxGroupInput_dsfr

updateCheckboxGroupInput_dsfr

updateCheckboxGroupInput_dsfr(
  inputId,
  label = NULL,
  choices = NULL,
  selected = NULL,
  inline = FALSE,
  session = shiny::getDefaultReactiveDomain()
)

Arguments

inputId

id de l'input

label

label du bouton

choices

Liste des valeurs à sélectionner (si les éléments de la liste portent un nom, c'est ce nom qui est affiché à l'utilisateur et non la valeur)

selected

Valeurs préselectionnées

inline

Si TRUE, positionne les choix en ligne (c'est-à-dire horizontalement).

session

la session, la valeur par défaut est getDefaultReactiveDomain().

Valeur de retour

html

Examples

## Only run examples in interactive R sessions
if (interactive()) {
  
  library(shiny)
  
  ui <- fluidPage_dsfr(
    checkboxGroupInput_dsfr(
      "variable", "Variables to show:",
      c("Cylinders" = "cyl",
        "Transmission" = "am",
        "Gears" = "gear"),
      inline = FALSE),
    actionButton_dsfr("go", "Change for inline and choices"),
    actionButton_dsfr("go2", "Change without inline and choices")
  )
  
  server <- function(input, output, session) {
    observeEvent(input$variable, {
      print(input$variable)
    })
    
    
    observeEvent(input$go, {
      updateCheckboxGroupInput_dsfr(
        session = session,
        inputId = "variable",
        label = paste0("test", rnorm(1)),
        choices = c("A" = "a", "B" = "b"),
        selected = "a",
        inline = TRUE
      )
      
    })
    
    
    observeEvent(input$go2, {
      updateCheckboxGroupInput_dsfr(
        session = session,
        inputId = "variable",
        label = paste0("test", rnorm(1)),
        choices = c("A" = "a", "B" = "b"),
        selected = "a",
        inline = FALSE
      )
      
    })
    
  }
  shinyApp(ui, server)
}