From f444a82337090fffc03c17bb75edf3975aea5767 Mon Sep 17 00:00:00 2001 From: c8c97f9cb8c3a20740b5dc4b6225c706 Date: Wed, 15 Apr 2020 15:59:07 +0000 Subject: [PATCH] Update analyse-syndrome-grippal.Rmd --- module3/exo1/analyse-syndrome-grippal.Rmd | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd index 912a892..39bc3b0 100644 --- a/module3/exo1/analyse-syndrome-grippal.Rmd +++ b/module3/exo1/analyse-syndrome-grippal.Rmd @@ -43,12 +43,17 @@ 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 + ```{r} -if file.exists("incidence-PAY-3.csv"){ - data = read.csv("incidence-PAY-3.csv", skip=1) } +# Si un fichier du même nom existe déjà localement, le lire. Sinon, le télécharger +# depuis l'URL dans data_url, l'écrire dans un fichier csv, puis continuer +# l'analyse +filename = "incidence-PAY-3.csv" +if file.exists(filename){ + data = read.csv(filename, skip=1) } else { data = read.csv(data_url, skip=1) - write.csv(data, file = "incidence-PAY-3.csv") + write.csv(data, file = filename) } ``` -- 2.18.1