|
|
@@ -7,6 +7,7 @@ library(rgdal) |
|
|
|
library(plotly) |
|
|
|
library(stringr) |
|
|
|
library(lubridate) |
|
|
|
library(jsonlite) |
|
|
|
|
|
|
|
# Lecture fichier de GHM ---- |
|
|
|
read_csv("ghm.csv", col_types = cols(IPP = col_character())) %>% |
|
|
@@ -39,6 +40,7 @@ rm(racines) |
|
|
|
|
|
|
|
# Lecture carte ---- |
|
|
|
readOGR("communes_byCP", "communes_byCP") -> communes |
|
|
|
fromJSON("communes_byCP/communes_byCP.json") -> geojson |
|
|
|
|
|
|
|
# Filtre Codes existants dans la base |
|
|
|
communes <- communes[communes$Codepos %in% GHM$Codepos,] |
|
|
|