Réponse exo1 module 3

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -21,9 +21,10 @@ knitr::opts_chunk$set(echo = TRUE)
 
 ## Préparation des données
 
-Les données de l'incidence du syndrome grippal sont disponibles du site Web du [Réseau Sentinelles](http://www.sentiweb.fr/). Nous les récupérons sous forme d'un fichier en format CSV dont chaque ligne correspond à une semaine de la période demandée. Nous téléchargeons toujours le jeu de données complet, qui commence en 1984 et se termine avec une semaine récente. L'URL est:
+Les données de l'incidence du syndrome grippal sont disponibles du site Web du [Réseau Sentinelles](http://www.sentiweb.fr/). Nous les récupérons sous forme d'un fichier en format CSV dont chaque ligne correspond à une semaine de la période demandée. Nous téléchargeons toujours le jeu de données complet, qui commence en 1984 et se termine avec une semaine récente. L'URL est :
 ```{r}
 data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
+data_local = "C:/Users/Marc/Desktop/MOOC/mooc-rr/module3/exo1/incidence-PAY-3.csv"
 ```
 
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):
@@ -43,8 +44,17 @@ 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
+__Nous allons tester si le fichier local existe avec une condition `if`. Si non il sera téléchargé depuis l'url avec la fonction `download.file`. Si oui, il retournera `Fichier déjà téléchargé`__
 ```{r}
-data = read.csv(data_url, skip=1)
+if (file.exists(data_local) == FALSE) {
+  download.file(data_url, data_local)
+} else {
+  print("Fichier déjà téléchargé")
+}
+```
+
+```{r}
+  data = read.csv(data_local, skip=1)
 ```
 
 Regardons ce que nous avons obtenu: