From f662345b7bc3cd994e73e0f7099c0d348cfad083 Mon Sep 17 00:00:00 2001 From: Maxime Wack Date: Tue, 13 Sep 2016 14:00:18 +0200 Subject: [PATCH] =?UTF-8?q?Format=20par=20d=C3=A9faut=20de=20exhau=5Fpims.?= =?UTF-8?q?csv=20avec=20s=C3=A9parateur=3D","?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- README.md | 2 +- donnees.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index c4285e8..8df091c 100644 --- a/README.md +++ b/README.md @@ -30,7 +30,7 @@ La génération du rapport est séparée en deux parties : ### Acquisition des données -Une première étape manuelle consiste à utiliser la requête Business Objects **exhaustivite.wid** présente dans le répertoire et de sauvegarder le fichier csv (choisir les options de format : encodage en UTF8, séparateur = ";") sous le nom **exhau_pims.csv** dans le répertoire du script. +Une première étape manuelle consiste à utiliser la requête Business Objects **exhaustivite.wid** présente dans le répertoire et de sauvegarder le fichier csv (choisir les options de format : encodage en UTF8, séparateur = ",") sous le nom **exhau_pims.csv** dans le répertoire du script. Le script **donnees.sh** appelle le script **donnees.R** qui récupère les autres données depuis les différentes sources (base de données MySQL (tables fix116, fix117, mvt_gam et structure) sur livenne et données ePMSI sur le site de l'ATIH, exhaustivité WebBIMS dans le fichier **exhau_pims.csv**, tableaux ePMSI CCEG+CHU de 2015 pré-assemblés dans le fichier **Ovalide.Rdata** (nécessaires uniquement pour les bilans de 2016). Les tableaux ePMSI sont archivés dans le dossier **ePMSI**. diff --git a/donnees.R b/donnees.R index b20cd6b..8b9e30d 100644 --- a/donnees.R +++ b/donnees.R @@ -159,7 +159,7 @@ exhau[exhau$mois == mois,]$manq <- gam %>% nrow save(exhau, file = "exhau.Rdata") # Données extraites de web100T pour l'exhaustivité par service -exhau_pims <- read_csv2("exhau_pims.csv") +exhau_pims <- read_csv("exhau_pims.csv") names(exhau_pims) <- c("Pole", "Service", "RUM", "DP", "Erreur", "Sortie") exhau_pims %<>%