From 44246f7b62131d02734b9c329ad866e151f1cb38 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Mon, 6 Mar 2017 20:29:09 +0100
Subject: [PATCH] Lecture et tidy fichier GHM

---
 app.R | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/app.R b/app.R
index 3dae1c0..3cbecfb 100644
--- a/app.R
+++ b/app.R
@@ -7,9 +7,12 @@ library(rgdal)
 library(plotly)
 library(stringr)
 
-read.csv("ghm.csv") %>%
+# Lecture fichier de GHM ----
+read_csv("ghm.csv", col_types = cols(IPP = col_character())) %>%
   `names<-`(c("IPP", "IEP", "Age", "Sexe", "CP", "GHM", "date_entree", "date_sortie")) %>%
-  mutate(DS = as.numeric(date_sortie - date_entree),
+  mutate(date_entree = date_entree %>% as.Date(format = "%Y/%m/%d"),
+         date_sortie = date_sortie %>% as.Date(format = "%Y/%m/%d"),
+         DS = as.numeric(date_sortie - date_entree),
          Sexe = Sexe %>% factor(labels = c("Homme", "Femme"))) -> GHM
 
 read_csv2("insee.csv") %>%