Publier le rapport au lieu de télécharger

index.Rmd

@@ -56,7 +56,7 @@ inputPanel(
   numericInput("mois", "Mois", (Sys.Date() %>% month) - 1),
   numericInput("annee", "Année", Sys.Date() %>% year),
   fileInput("crhap", "CRHAP", accept = "text/csv"),
-  downloadButton("report", "Publier et télécharger le rapport")
+  actionButton("report", "Publier le rapport")
 )
 
 CRH <- reactive(
@@ -119,13 +119,12 @@ mois_label <- c("Janvier",
 ```
 
 ```{r report}
-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()))
+observeEvent(input$report, 
+             {
+               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()))
 
-                                  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()))
-                                })
+               showModal(modalDialog(title = "Publication", "Fichier disponible à l'adresse suivante : https://livenne.chu-nancy.fr/sitedim/index.php/clot/presence-crh", easyClose = T))
+             })
 ```
 
 ### Présence du CRH pour le codage des séjours