|
|
|
@@ -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 |
|
|
|
|
