Update analyse-syndrome-grippal.Rmd

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -26,6 +26,15 @@ 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"
 ```
 
+```{r}
+data_file = "dataGrippe.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                                                                                                                |
@@ -41,28 +50,12 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://
 | `geo_insee`  | Code de la zone géographique concernée (Code INSEE) http://www.insee.fr/fr/methodes/nomenclatures/cog/                            |
 | `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
-```{r}
-data = read.csv(data_url, skip=1)
-```
-
-Copier les données téléchargées dans un fichier local
 
+### Lecture des données a partir du fichier disponible
 ```{r}
-write.table(data, "C:/Users/cc270930/Desktop/MOOC recherche reproductible/Module 3 - La main à la pâte, une analyse réplicable/dataGrippe.csv", 
-            row.names = FALSE, sep = ";", dec=",", na = "-")
+data = read.csv(data_file, skip=1)
 ```
 
-
-Lire le fichier CSV sauvegardé en local
-
-```{r}
-data = read.csv("C:/Users/cc270930/Desktop/MOOC recherche reproductible/Module 3 - La main à la pâte, une analyse réplicable/dataGrippe.csv",
-                sep = ";", header = TRUE, na = "-")
-```
-
-
 Regardons ce que nous avons obtenu:
 ```{r}
 head(data)