Update data read.csv commentaires

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -24,6 +24,8 @@ knitr::opts_chunk$set(echo = TRUE)
 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_file = "sentiweb-incidence.csv"
 ```
 
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):
@@ -42,11 +44,13 @@ 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`.
+
+Pour nous prémunir de la situation dans laquelle le fichier n'existerait plus en ligne, nous avons fait une copie sur le disque. Si cette copie venait à disparaitre, un lien vers le site internet existe néanmoins.
 ### Téléchargement
 ```{r}
-if (file.exists("data.csv") == 1) {
-    data = read.csv("data.csv, skip=1)
-    } else {
+data = read.csv("sentiweb-incidence.csv", skip=1)
+
+if (!file.exists("sentiweb-incidence")) {
     data = read.csv(data_url, skip=1)
 }
 ```