hoping to function

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -21,13 +21,14 @@ 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.
+
+En pratique, nous chargons les données grâce à une copie du fichier enregistrée localement. Un code télécharge directement et enregistre une copie au cas où ce fichier n'exste pas encore en local.
 ```{r}
 
-if ("incidence-PAY-3.csv" %notin% dir(path=getwd()) then write.csv("http://www.sentiweb.fr/datasets/incidence-PAY-3.csv","incidence-PAY-3.csv")
-# "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
+if ("incidence-PAY-3.csv" %in% dir(path=getwd())=='FALSE') write.csv("http://www.sentiweb.fr/datasets/incidence-PAY-3.csv",file = "incidence-PAY-3.csv")
 
-# data_url = read.csv(file = "incidence-PAY-3.csv")
+data_url <- read.csv(file = "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):