|
|
|
@@ -51,7 +51,7 @@ inputPanel( |
|
|
|
numericInput("mois", "Mois", (Sys.Date() %>% month) - 1), |
|
|
|
numericInput("annee", "Année", Sys.Date() %>% year), |
|
|
|
fileInput("crhap", "CRHAP", accept = "text/csv"), |
|
|
|
downloadButton("report", "Générer le rapport") |
|
|
|
downloadButton("report", "Télécharger le rapport") |
|
|
|
) |
|
|
|
|
|
|
|
CRH <- reactive( |
|
|
|
|
