selectInput_dsfr.Rd
selectInput_dsfr
selectInput_dsfr(inputId, label, choices, selected = NULL)
html
## Only run examples in interactive R sessions
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(
# sans vecteur nommé
selectInput_dsfr(
inputId = "myselectInput",
label = "Mon label",
choices = c(
"cyl",
"am",
"gear"
)
),
fluidRow_dsfr(
# avec un vecteur nommé et une valeur sélectionnée
selectInput_dsfr(
inputId = "myselectInput2",
label = "Mon label2",
choices = c(
"Cylinders" = "cyl",
"Transmission" = "am",
"Gears" = "gear"
),
selected = "gear"
)
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}