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