Modification pour l'exercici 1 du module 3

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -26,6 +26,22 @@ 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"
 ```
 
+
+Rien ne garantit que l'URL reste toujours valable, ni que les données seront toujours les mêmes. Pour palier à ce problème et garantir la reproductibilité, nous allons d'abord faire une copie locale des données, puis utiliser ces données pour l'analyse.
+
+
+
+```{r}
+# Nom du data en local
+local_data <- "incidence-PAY-3.csv"
+
+# On teste si le data en local existe ou non, et si non, on le télécharge
+if (!file.exists(local_data)) {
+  download.file(data_url, local_data, mode = "wb")
+}
+```
+
+
 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                                                                                                                |
@@ -44,7 +60,10 @@ 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
 ```{r}
-data = read.csv(data_url, skip=1)
+#data = read.csv(data_url, skip=1, na.strings=c("-"))
+data <- read.csv(local_data, skip = 1, na.strings=c("-"))
+# ou
+data <- read.csv("incidence-PAY-3.csv", skip = 1, na.strings=c("-"))
 ```
 
 Regardons ce que nous avons obtenu: