From 1ddb6d565f086b5a43d6e3af6c3d438a0acf033d Mon Sep 17 00:00:00 2001 From: aaaaaa Date: Thu, 4 Jun 2020 16:14:06 +0200 Subject: [PATCH] =?UTF-8?q?ajout=20"telecharger=20fichier=20donn=C3=A9es?= =?UTF-8?q?=20en=20local=20si=20n'existe=20pas"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- module3/exo1/analyse-syndrome-grippal.Rmd | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd index 771e78f..10f37d6 100644 --- a/module3/exo1/analyse-syndrome-grippal.Rmd +++ b/module3/exo1/analyse-syndrome-grippal.Rmd @@ -43,8 +43,13 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https:// La première ligne du fichier CSV est un commentaire, que nous ignorons en précisant `skip=1`. ### Téléchargement +Afin de ne pas télécharger à chaque fois le fichier de données, nous pouvons enregistrer celui-ci localement (s'il n'existe pas déjà). ```{r} -data = read.csv(data_url, skip=1) +dest_file <- "./incidence_grippale.csv" +if(!file.exists(dest_file)){ + download.file(url = data_url, destfile = dest_file, method = "auto") +} +data = read.csv(dest_file, skip=1) ``` Regardons ce que nous avons obtenu: -- 2.18.1