From b858379704ef75598f4add50cf4fac292c61c55a Mon Sep 17 00:00:00 2001 From: Melanie Pelegrini Date: Tue, 1 Nov 2022 18:47:58 +0100 Subject: [PATCH] =?UTF-8?q?Avec=20une=20correction=20du=20code=20=3D=20t?= =?UTF-8?q?=C3=A9l=C3=A9chargement=20du=20fichier=20plut=C3=B4t=20que=20de?= =?UTF-8?q?=20le=20lire=20directement=20depuis=20l'URL?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- module3/exo1/analyse-syndrome-grippal.Rmd | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd index 4e8f543..75724be 100644 --- a/module3/exo1/analyse-syndrome-grippal.Rmd +++ b/module3/exo1/analyse-syndrome-grippal.Rmd @@ -58,9 +58,11 @@ filename <- basename(data_url) On peut chercher si le fichier existe déjà dans le répertoire courant avec une fonction basique de R. S'il existe déjà, on le charge, sinon on le charge depuis l'URL. ```{r} -if(file.exists(filename)) { - data = read.csv(filename, skip=1) -} else data = read.csv(data_url, skip=1) +if(!file.exists(filename)) { + download.file(data_url, filename, method = 'auto') +} +data = read.csv(filename, skip=1) + ``` -- 2.18.1