diff --git a/R/choropleth_map_prov_pdf.R b/R/choropleth_map_prov_pdf.R index 42cc512..5737b64 100644 --- a/R/choropleth_map_prov_pdf.R +++ b/R/choropleth_map_prov_pdf.R @@ -64,9 +64,7 @@ choropleth_map_prov_pdf <- function(values, font_add_google(legend_items_font, 'legend_items_font') showtext_auto() - st_crs(shp_pro) <- 4326 - - box <- st_bbox(shp_pro) + box <- st_bbox(mapa_base) if (!is.null(logo_filename)) { logo <- rasterGrob(readPNG(logo_filename), @@ -83,7 +81,7 @@ choropleth_map_prov_pdf <- function(values, include.lowest = TRUE, sep = '; ')) - mapa <- shp_pro %>% + mapa <- mapa_base %>% left_join(scores) labels <- mapa %>% diff --git a/R/sysdata.rda b/R/sysdata.rda index 40ed944..0aae2fb 100644 Binary files a/R/sysdata.rda and b/R/sysdata.rda differ diff --git a/README.md b/README.md index 9633e2d..0675383 100644 --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ No GIS knowledge is required. You need just provide data and geographic data will be internally added. Internal base maps shape files were downloaded from: -https://www.ecuadorencifras.gob.ec/documentos/web-inec/Cartografia/Clasificador_Geografico/2015/ +https://www.ecuadorencifras.gob.ec//documentos/web-inec/Cartografia/Clasificador_Geografico/2012/SHP.zip Installation ------------