From e9d8f49e24ae0601406dc2ba68e1102c974d0458 Mon Sep 17 00:00:00 2001 From: e60082cd6b5a11fdf21efe3e226552ba Date: Thu, 16 Nov 2023 14:26:21 +0000 Subject: [PATCH] donnees telechargees --- module3/exo1/analyse-syndrome-grippal.Rmd | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd index c7818d4..4da6428 100644 --- a/module3/exo1/analyse-syndrome-grippal.Rmd +++ b/module3/exo1/analyse-syndrome-grippal.Rmd @@ -24,6 +24,12 @@ knitr::opts_chunk$set(echo = TRUE) Les données de l'incidence du syndrome grippal sont disponibles du site Web du [Réseau Sentinelles](http://www.sentiweb.fr/). Nous les récupérons sous forme d'un fichier en format CSV dont chaque ligne correspond à une semaine de la période demandée. Nous téléchargeons toujours le jeu de données complet, qui commence en 1984 et se termine avec une semaine récente. L'URL est: ```{r} data_url = "https://www.sentiweb.fr/datasets/incidence-PAY-3.csv?v=8akq5" + +# Pour se protéger d'un lien qui casserait, on retélécharge les données uniquement si le fichier n'existe pas encore +data_file = "incidence-PAY-3.csv" +if (!file.exists(data_file)) { + download.file(data_url, data_file, method="auto") +} ``` Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json): @@ -44,8 +50,7 @@ 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} -# data = read.csv(data_url, skip=1) -data = read.csv("incidence-PAY-3.csv", skip=1) +data = read.csv(data_file, skip=1) ``` Regardons ce que nous avons obtenu: -- 2.18.1