Retrait copie temporaire, attention aux permissions (écriture pour groupe shiny)

index.Rmd

@@ -90,9 +90,7 @@ endoscopies_hos <- reactive(
 output$report <- downloadHandler(filename = "endoscopies.html",
                                 content = function(file)
                                 {
-                                  tempReport <- file.path(tempdir(), "endoscopies.rmd")
-                                  file.copy("endoscopies.rmd", tempReport, overwrite = T)
-                                  rmarkdown::render(tempReport, output_file = file, params = list(liste_actes = liste_actes, endoscopies = endoscopies(), endoscopies_ext = endoscopies_ext(), endoscopies_hos = endoscopies_hos()))
+                                  rmarkdown::render("endoscopies.rmd", output_file = file, params = list(liste_actes = liste_actes, endoscopies = endoscopies(), endoscopies_ext = endoscopies_ext(), endoscopies_hos = endoscopies_hos()))
                                 })
 ```