Publier le rapport sur le site web

index.Rmd

@@ -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", "Télécharger le rapport")
+  downloadButton("report", "Publier et télécharger le rapport")
 )
 
 CRH <- reactive(
@@ -118,6 +118,8 @@ output$report <- downloadHandler(filename = "CRHAP.html",
                                 content = function(file)
                                 {
                                   rmarkdown::render("CRHAP.Rmd", output_file = file, params = list(CRH = CRH(), CRH_seance = CRH_seance(), CRH_sans_seance = CRH_sans_seance()))
+
+                                  rmarkdown::render("CRHAP.Rmd", output_file = "/var/www/html/cloture/crhap.html", params = list(CRH = CRH(), CRH_seance = CRH_seance(), CRH_sans_seance = CRH_sans_seance()))
                                 })
 ```