Création copie locale du dataset

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -26,6 +26,19 @@ 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"
 ```
 
+On effectue une copie locale (appelée `data_local`des données, accessibles depuis l'adresse `data_url`:
+```{r}
+data_local = "data_syndrome_grippal.csv"
+```
+Une fois cette copie locale réalisée, on ne veut plus avoir à télécharger le fichier à chaque exécution du script, car on pourrait rencontrer des problèmes (écrasement des données et/ou url invalide). 
+Pour éviter cela, on vérifie si la copie locale existe (est non vide). Si oui,on n'a rien à faire et si non, on a besoin de télécharger les données. On utilise pour cela la fonction `!file.exists` (qui vérifie que le [fichier n'existe pas](https://statisticsglobe.com/check-existence-of-local-file-in-r))
+```{r}
+if (!file.exists(data_local)){  # si le fichier data_local n'existe PAS
+  download.file(data_url, data_local, method = "auto") # alors on le télécharge à l'adresse data_url et on le stocke dans data_local
+}
+```
+
+
 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,11 +54,11 @@ 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
+### Lecture des données
 ```{r}
-data = read.csv(data_url, skip=1)
+data = read.csv(data_local, skip = 1)
 ```
+La première ligne du fichier CSV est un commentaire, que nous ignorons en précisant `skip=1`.
 
 Regardons ce que nous avons obtenu:
 ```{r}