Lecture des données de surveillance du syndrome grippal

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -2,11 +2,11 @@
 title: "Analyse de l'incidence du syndrôme grippal"
 author: "Konrad Hinsen"
 output:
-  pdf_document:
-    toc: true
   html_document:
     toc: true
     theme: journal
+  pdf_document:
+    toc: true
 documentclass: article
 classoption: a4paper
 header-includes:
@@ -42,11 +42,28 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://
 | `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
+
+On commence par tester si le fichier est déjà présent sur le disque dur (pas forcément dans le répertoire courant).
+
+
+ON extrait le nom du fichier de l'URL.
+
 ```{r}
-data = read.csv(data_url, skip=1)
+library(tools)
+filename <- basename(data_url)
 ```
 
+On peut chercher si le fichier existe déjà dans le répertoire courant avec une fonction basique de R. S'il existe déjà, on le charge, sinon on le charge depuis l'URL.
+
+```{r}
+if(file.exists(filename)) {
+  data = read.csv(filename, skip=1)
+} else data = read.csv(data_url, skip=1)
+```
+
+
 Regardons ce que nous avons obtenu:
 ```{r}
 head(data)