actionButton_dsfr

actionButton_dsfr

actionButton_dsfr(inputId, label, class = "fr-p-1w")

Arguments

inputId

id de l'input

label

label du bouton

class

des classes a ajouter si necessaire

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(
      actionButton_dsfr(
        inputId = "test",
        label = "Cliquez moi",
        class = "fr-btn--icon-left fr-icon-checkbox-circle-line"
      ),
      verbatimTextOutput(outputId = "nbclic")
    )
  )
  server <- function(input, output, session) {
    output$nbclic <- renderText({
      paste("Vous avez cliqu\u00e9", input$test, "fois sur le bouton")
    })
  }

  shinyApp(ui, server)
}