update

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -24,8 +24,25 @@ 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"	
+```	
+
+Copie locale du fichier faite dans le répertoire module 3 exo1 
+le téléchargement sur le site ne se fera que si la sauvergarde locale n'existe pas.
+Je suis obligée de faire un setwd car il ne se met pas automatiquement dans le bon répertoire (à revoir dans la configuration du r setup au départ je pense
+
+
+
+	
+```{r}	
+data_file = "incidence-PAY-3.csv"	
 setwd("C:/Users/berga/Seafile/MOOC/mooc-rr/module3/exo1")
-data<-read.csv("incidence-PAY-3.csv")
+
+
+if (!file.exists(data_file)) {	
+    download.file(data_url, data_file, method="auto")	
+}
+
 ```
 
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):