fileInput_dsfr

fileInput_dsfr

fileInput_dsfr(inputId, label, message)

Arguments

inputId

id de l'input

label

etiquette du bouton d'import, par exemple "choisir fichier"

message

eventuelles indications complementaires, par exemple "fichier images de moins de 2 Mo"

Valeur de retour

html

Examples

if (interactive()) {
  ui <- fluidPage_dsfr(
    fluidRow_dsfr(
      column_dsfr(width = 4, 
        fileInput_dsfr(inputId = "file1", label = "Importez vos données", message = "seul le format csv est pris en charge"),
        br(),
        checkboxInput_dsfr(inputId = "header", label = "Utiliser les en-tetes du fichier")
      ),
      column_dsfr(width = 8,
        tableOutput_dsfr("contenu")("contenu")
      )
    )
  )
  
  server <- function(input, output) {
    output$contenu <- renderTable({
      file <- input$file1
      ext <- tools::file_ext(file$datapath)
      
      req(file)
      validate(need(ext == "csv", "Veuillez choisir un fichier csv svp"))
      
      read.csv2(file$datapath, header = input$header, nrows = 12)
    })
  }
  
  shinyApp(ui, server)
}