numericInput_dsfr

numericInput_dsfr

numericInput_dsfr(
  inputId = inputId,
  label = label,
  value = value,
  min = NA,
  max = NA,
  step = NA
)

Arguments

inputId

inputId

label

label

value

valeur par défaut

min

valeur minimale

max

valeur maximale

step

pas utilisé entre 2 valeurs

Valeur de retour

html

Examples

## Only run examples in interactive R sessions
if (interactive()) {
  library(shiny)
  library(shinygouv)

  ui <- fluidPage_dsfr(
    header = header_dsfr(
      intitule = c("Intitule", "officiel"),
      nom_site_service = "Nom du site / service",
      baseline = "baseline - precisions sur l organisation",
      class = "fr-m-1w"
    ),
    title = "Exemple",
    fluidRow_dsfr(
      numericInput_dsfr(
        inputId = "mynumericinput",
        label = "Numeric input",
        value = 12,
        min = 0,
        max = NA,
        step = 2
      ),
      verbatimTextOutput(outputId = "numericinputvalue")
    )
  )
  server <- function(input, output, session) {
    output$numericinputvalue <- renderText({
      paste("La valeur de l'input est", input$mynumericinput)
    })
  }

  shinyApp(ui, server)
}