radioGroupButtons_dsfr

radioGroupButtons_dsfr

radioGroupButtons_dsfr(
  inputId,
  label,
  choices,
  selected = NULL,
  inline = FALSE
)

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

Element sélectionné (NULL par défaut)

inline

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

Valeur de retour

html

Examples

if (interactive()) {
  library(shiny)
  library(shinygouv)

  ui <- fluidPage_dsfr(
    header = header_dsfr(
      intitule = "Intitule",
      officiel = "Officiel",
      nom_site_service = "Nom du site / service",
      baseline = "baseline - precisions sur l organisation",
      class = "fr-m-1w"
    ),
    title = "Exemple",
    fluidRow_dsfr(
      radioGroupButtons_dsfr(
        inputId = "espece_radiogroupbutton",
        label = "Especes (radio group button avec inline = FALSE)",
        choices = c("Setosa" = "setosa", "Versicolor" = "versicolor", "Virginica" = "virginica"),
        selected = "virginica",
        inline = FALSE
      )
    ),
    fluidRow_dsfr(
      radioGroupButtons_dsfr(
        inputId = "espece_radiogroupbutton2",
        label = "Especes (radio group button avec inline = TRUE)",
        choices = c("Setosa" = "setosa", "Versicolor" = "versicolor", "Virginica" = "virginica"),
        selected = "virginica",
        inline = TRUE
      )
    ),
    fluidRow_dsfr(
      verbatimTextOutput(outputId = "outputespece_radiogroupbutton"),
      verbatimTextOutput(outputId = "outputespece_radiogroupbutton2")
    )
  )

  server <- function(input, output, session) {
    output$outputespece_radiogroupbutton <- renderText({
      paste("Esp\u00e8ce radiogroupbutton avec inline = FALSE :", input$espece_radiogroupbutton)
    })
    output$outputespece_radiogroupbutton2 <- renderText({
      paste("Esp\u00e8ce radiogroupbutton avec inline = TRUE :", input$espece_radiogroupbutton2)
    })
  }

  shinyApp(ui, server)
}