From 86abf5ce927ebc26ae33e280664ff7fdfb9125b2 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Fri, 10 Jun 2016 17:41:36 +0200
Subject: [PATCH] Locale pour exhau_pims

---
 donnees.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/donnees.R b/donnees.R
index fcd789c..3d667b6 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_csv("exhau_pims.csv")
+exhau_pims <- read_csv("exhau_pims.csv", locale = locale(encoding = "ISO-8859-1"))
 names(exhau_pims) <- c("Pole", "Service", "RUM", "DP", "Erreur", "Sortie")
 
 exhau_pims %<>%