From 264cbb6b7f7ec4131af9e6bb2d0527a5b7e5f09a Mon Sep 17 00:00:00 2001
From: 8faa2e921604ca9960bbf59fae1d5725
 <8faa2e921604ca9960bbf59fae1d5725@app-learninglab.inria.fr>
Date: Wed, 24 Feb 2021 09:07:24 +0000
Subject: [PATCH] Update influenza-like-illness-analysis_en.Rmd

---
 .../exo1/influenza-like-illness-analysis_en.Rmd  | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/Module 3/exo1/influenza-like-illness-analysis_en.Rmd b/Module 3/exo1/influenza-like-illness-analysis_en.Rmd
index 648860a..1061c25 100644
--- a/Module 3/exo1/influenza-like-illness-analysis_en.Rmd	
+++ b/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)
-
-```
 
-- 
2.18.1