From 760fb10f06f1b358523ddff82c5d8ac24eff84b1 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Mon, 6 Mar 2017 23:52:19 +0100
Subject: [PATCH] Correction pour codes insee pour join

---
 app.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/app.R b/app.R
index e2761f2..8bbf01c 100644
--- a/app.R
+++ b/app.R
@@ -26,10 +26,10 @@ racine <- racine[racine %in% GHM$GHM]
 rm(racines)
 
 # Lecture codes postaux <-> codes insee et garder ceux existants ----
-read_csv2("insee.csv") %>%
+read_csv2("insee.csv", col_types = cols(INSEE = col_character())) %>%
   select(Codepos, insee = INSEE) %>%
-  filter(Codepos %in% GHM$CP) %>%
-  mutate(insee = insee %>% as.character)-> insee
+  mutate(insee = insee %>% str_pad(5, "left", "0")) %>%
+  filter(Codepos %in% GHM$CP) -> insee
 
 # Lecture carte et join avec codes postaux ----
 readOGR("communes", "communes-20150101-100m") -> communes