From b73b0f281bae23b6483bb47bceb7a79335aff87e Mon Sep 17 00:00:00 2001
From: 61108243dd1ab58c494e6087352737ae
 <61108243dd1ab58c494e6087352737ae@app-learninglab.inria.fr>
Date: Fri, 22 Nov 2024 11:29:04 +0000
Subject: [PATCH] Update analyse-syndrome-grippal.Rmd

---
 module3/exo1/analyse-syndrome-grippal.Rmd | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd
index 771e78f..9e5cbda 100644
--- a/module3/exo1/analyse-syndrome-grippal.Rmd
+++ b/module3/exo1/analyse-syndrome-grippal.Rmd
@@ -43,8 +43,19 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://
 
 La première ligne du fichier CSV est un commentaire, que nous ignorons en précisant `skip=1`.
 ### Téléchargement
+
+On indique le working directory pour le téléchargement en local puis si aucun fichier `incidence-PAY-3.csv` n'est trouvé en local, le fichier est récupéré avec l'url puis téléchargé sans la première ligne
+Sinon il est importé depuis le local, en sachant que la première ligne a été supprimée, et en indiquant la colonne de noms de lignes.
 ```{r}
-data = read.csv(data_url, skip=1)
+setwd("") 
+
+if (length(list.files(pattern = "incidence-PAY-3.csv")) == 0){
+  data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
+  write.csv(read.csv(data_url, skip=1), "incidence-PAY-3.csv")
+  data = read.csv("incidence-PAY-3.csv", row.names = 1)
+}else{
+  data = read.csv("incidence-PAY-3.csv", row.names = 1)
+}
 ```
 
 Regardons ce que nous avons obtenu:
-- 
2.18.1