exo1 fini

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -23,7 +23,17 @@ 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"
+#Si le fichier n'existe pas déjà en local, on le récupère avec l'url
+library(data.table)
+if (file.exists('data_grippe.csv') == FALSE){
+  data_url = "https://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
+  data = fread(data_url,skip=1)
+}
+else{
+  data = fread('data_grippe.csv')
+}
+
+head(data)
 ```
 
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):