ajout "telecharger fichier données en local si n'existe pas"

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -43,8 +43,13 @@ 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
+Afin de ne pas télécharger à chaque fois le fichier de données, nous pouvons enregistrer celui-ci localement (s'il n'existe pas déjà).  
 ```{r}
-data = read.csv(data_url, skip=1)
+dest_file <- "./incidence_grippale.csv"
+if(!file.exists(dest_file)){
+  download.file(url = data_url, destfile = dest_file, method = "auto")
+}
+data = read.csv(dest_file, skip=1)
 ```
 
 Regardons ce que nous avons obtenu: