Plus de fichier temporaire. Shiny doit avoir des droits sur le

répertoire

index.Rmd

@@ -117,9 +117,7 @@ mois_label <- c("Janvier",
 output$report <- downloadHandler(filename = "CRHAP.html",
                                 content = function(file)
                                 {
-                                  tempReport <- file.path(tempdir(), "CRHAP.Rmd")
-                                  file.copy("CRHAP.Rmd", tempReport, overwrite = T)
-                                  rmarkdown::render(tempReport, output_file = file, params = list(CRH = CRH(), CRH_seance = CRH_seance(), CRH_sans_seance = CRH_sans_seance()))
+                                  rmarkdown::render("CRHAP.Rmd", output_file = file, params = list(CRH = CRH(), CRH_seance = CRH_seance(), CRH_sans_seance = CRH_sans_seance()))
                                 })
 ```