download the data if it is not there already, to avoid repeated downloads, and allow offline work

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -45,8 +45,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
+
+Si le fichier n'existe pas déjà sur l'ordinateur, on le télécharge depuis la source indiquée plus haut. Cette vérification nous évite des téléchargements répétés et inutiles, et nous permet de travailler sans connexion internet (si le fichier existe).
+
 ```{r}
-data = read.csv(data_url, skip=1)
+library(fs)
+
+file_name = "incidence_stats.csv"
+if (!file_exists(file_name)) {
+  download.file(url=data_url, destfile=file_name, method="auto")
+}
+data = read.csv(file_name, skip=1)
 ```
 
 Regardons ce que nous avons obtenu: