diff --git a/vignettes/articles/working_imagery.Rmd b/vignettes/articles/working_imagery.Rmd index 078dd5a4..73ce82a8 100644 --- a/vignettes/articles/working_imagery.Rmd +++ b/vignettes/articles/working_imagery.Rmd @@ -69,7 +69,7 @@ madrid <- esp_get_ccaa("Madrid", epsg = 3857) # Example without transparency -basemap <- esp_getTiles(madrid, "IGNBase.Gris", zoommin = 1) +basemap <- esp_getTiles(madrid, "IDErioja.Claro") tile_opaque <- esp_getTiles(madrid, "UnidadesAdm.Limites", transparent = FALSE) ggplot() + @@ -220,7 +220,10 @@ leaflet(elementId = "SpainDemo", width = "100%", height = "60vh") %>% ) %>% addLegend( pal = pal, values = bins, opacity = 0.7, - title = "Pop. Density km2
(2019)", + title = paste0( + "Pop. Density km2
", + "(2019)" + ), position = "bottomright" ) ``` diff --git a/vignettes/articles/x02_mapasesp.Rmd b/vignettes/articles/x02_mapasesp.Rmd index 5b931d4c..f8625e5c 100644 --- a/vignettes/articles/x02_mapasesp.Rmd +++ b/vignettes/articles/x02_mapasesp.Rmd @@ -141,7 +141,10 @@ esp_all$source <- c("rnaturalearth", "mapSpain") ggplot(esp_all) + geom_spatraster_rgb(data = tile, maxcell = Inf) + - geom_sf(aes(color = source), fill = NA, show.legend = "line", linewidth = 1.2) + + geom_sf(aes(color = source), + fill = NA, show.legend = "line", + linewidth = 1.2 + ) + coord_sf( crs = 4326, xlim = c(-8.384421, -8.154413), ylim = c(43.43201, 43.59545), expand = FALSE