From 9dd3a67d47dcdb278ac20b682cc75bc186727eb0 Mon Sep 17 00:00:00 2001
From: 61108243dd1ab58c494e6087352737ae
 <61108243dd1ab58c494e6087352737ae@app-learninglab.inria.fr>
Date: Fri, 22 Nov 2024 11:33:09 +0000
Subject: [PATCH] Correction

---
 module3/exo1/analyse-syndrome-grippal.Rmd | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd
index 9e5cbda..267be2c 100644
--- a/module3/exo1/analyse-syndrome-grippal.Rmd
+++ b/module3/exo1/analyse-syndrome-grippal.Rmd
@@ -26,6 +26,14 @@ Les données de l'incidence du syndrome grippal sont disponibles du site Web du
 data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
 ```
 
+Pour nous protéger contre une éventuelle disparition ou modification du serveur du Réseau Sentinelles, nous faisons une copie locale de ce jeux de données que nous préservons avec notre analyse. Il est inutile et même risquée de télécharger les données à chaque exécution, car dans le cas d'une panne nous pourrions remplacer nos données par un fichier défectueux. Pour cette raison, nous téléchargeons les données seulement si la copie locale n'existe pas.
+```{r}
+data_file = "syndrome-grippal.csv"
+if (!file.exists(data_file)) {
+    download.file(data_url, data_file, method="auto")
+}
+```
+
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):
 
 | Nom de colonne | Libellé de colonne                                                                                                                |
@@ -42,20 +50,9 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://
 | `geo_name`   | Libellé de la zone géographique (ce libellé peut être modifié sans préavis)                                                       |
 
 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.
+### Lecture
 ```{r}
-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)
-}
+data = read.csv(data_file, skip=1)
 ```
 
 Regardons ce que nous avons obtenu:
-- 
2.18.1