Copie des fichiers dans un répertoire servi par apache

index.Rmd

@@ -38,13 +38,19 @@ Les fichiers doivent être fournis au format CSV avec les paramètres suivants :
 
 ### Endoscopies en externe
 
-Le fichier doit être issu de la [requête suivante](endoscopies_ext.wid).
+Le fichier doit être issu de la [requête suivante](https://livenne.chu-nancy.fr/shiny_files/endoscopies/endoscopies_ext.wid).
 
 ### Endoscopies en hospitalisation
 
-Le fichier doit être issu de la [requête suivante](endoscopies_hos.wid).
+Le fichier doit être issu de la [requête suivante](https://livenne.chu-nancy.fr/shiny_files/endoscopies/endoscopies_hos.wid).
 
 ```{r data}
+if (!dir.exists("/var/www/html/shiny_files/endoscopies"))
+  dir.create("/var/www/html/shiny_files/endoscopies")
+
+file.copy("endoscopies_ext.wid", "/var/www/html/shiny_files/endoscopies", overwrite = T) -> null
+file.copy("endoscopies_hos.wid", "/var/www/html/shiny_files/endoscopies", overwrite = T) -> null
+
 inputPanel(
   fileInput("ext", "Endoscopies externes", accept = "text/csv"),
   fileInput("hos", "Endoscopies hospitalisations", accept = "text/csv"),