Update influenza-like-illness-analysis_en.Rmd

Module 3/exo1/influenza-like-illness-analysis_en.Rmd

@@ -9,23 +9,13 @@ knitr::opts_chunk$set(echo = TRUE)
 
 # Download data from *Réseau Sentinelles* and read data stored as `csv` from local files. Best choice to assure permanent access to dataset.
 
-```{r}
-setwd("~/ResearchReproductible") # Change working directory name
-data_file <- read.csv2("incidence-PAY-3.csv", skip = 1)
-```
-		
+``		```
+Pour nous protéger contre une éventuelle disparition ou modification du serveur du Réseau Sentinelles, nous faisons une copie locale de ce jeux de données que nous préservons avec notre analyse. Il est inutile et même risquée de télécharger les données à chaque exécution, car dans le cas d'une panne nous pourrions remplacer nos données par un fichier défectueux. Pour cette raison, nous téléchargeons les données seulement si la copie locale n'existe pas.		
 ```{r}		
 data_file = "syndrome-grippal.csv"		
 if (!file.exists(data_file)) {		
     download.file(data_url, data_file, method="auto")		
 }		
-```
-
-If the code above has not worked, you can access it directly from the website ** Réseau Sentinelles**. Although the link below may expire and data may have been modified.   
+```		
 
-```{r}
-data_url = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv"
-data <- read.csv(data_url, skip=1)
-
-```