From 4948ba8fb306f634bc7fb4e29c970856c2db17ea Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Mon, 6 Mar 2017 20:30:26 +0100
Subject: [PATCH] Lecture codes postaux

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

diff --git a/app.R b/app.R
index c5dbbd6..6ce8f17 100644
--- a/app.R
+++ b/app.R
@@ -24,10 +24,10 @@ names(racine) <- racines$codlib
 racine <- racine[racine %in% GHM$GHM]
 rm(racines)
 
+# Lecture codes postaux <-> codes insee et garder ceux existants ----
 read_csv2("insee.csv") %>%
   select(Codepos, insee = INSEE) %>%
-# filter(Codepos %in% GHM$CP),
-  filter(Codepos %>% str_detect("^(54|57|55|88)")) %>%
+  filter(Codepos %in% GHM$CP) %>%
   mutate(insee = insee %>% as.character)-> insee
 
 readOGR("communes/") -> communes