From 0ad0ab6e994d1fcd6c5b69f65092b30a8fd67459 Mon Sep 17 00:00:00 2001 From: d581efc242e1e06dfa8d0dea8ee470e0 Date: Sat, 11 Apr 2020 09:30:34 +0000 Subject: [PATCH] =?UTF-8?q?R=C3=A9ponses=20exo1=20module=203?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- module3/exo1/analyse-syndrome-grippal.Rmd | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/module3/exo1/analyse-syndrome-grippal.Rmd b/module3/exo1/analyse-syndrome-grippal.Rmd index 771e78f..88fb60e 100644 --- a/module3/exo1/analyse-syndrome-grippal.Rmd +++ b/module3/exo1/analyse-syndrome-grippal.Rmd @@ -21,9 +21,10 @@ knitr::opts_chunk$set(echo = TRUE) ## Préparation des données -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: +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 = "http://www.sentiweb.fr/datasets/incidence-PAY-3.csv" +data_local = "C:/Users/Marc/Desktop/MOOC/mooc-rr/module3/exo1/incidence-PAY-3.csv" ``` Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json): @@ -41,10 +42,19 @@ Voici l'explication des colonnes donnée sur le [sur le site d'origine](https:// | `geo_insee` | Code de la zone géographique concernée (Code INSEE) http://www.insee.fr/fr/methodes/nomenclatures/cog/ | | `geo_name` | Libellé de la zone géographique (ce libellé peut être modifié sans préavis) | -La première ligne du fichier CSV est un commentaire, que nous ignorons en précisant `skip=1`. +La première ligne du fichier CSV est un commentaire, que nous ignorons en précisant `skip=1`. ### Téléchargement +__Nous allons tester si le fichier local existe avec une condition `if`. Si non il sera téléchargé depuis l'url avec la fonction `download.file`. Si oui, il retournera `Fichier déjà téléchargé`__ ```{r} -data = read.csv(data_url, skip=1) +if (file.exists(data_local) == FALSE) { + download.file(data_url, data_local) +} else { + print("Fichier déjà téléchargé") +} +``` + +```{r} + data = read.csv(data_local, skip=1) ``` Regardons ce que nous avons obtenu: -- 2.18.1