Fix article

rOpenSpain · Jun 10, 2024 · 2390902 · 2390902
1 parent d10cf42
commit 2390902
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git 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 = "<small>Pop. Density km<sup>2</sup></small><br><small>(2019)</small>",
+    title = paste0(
+      "<small>Pop. Density km<sup>2</sup></small><br><small>",
+      "(2019)</small>"
+    ),
     position = "bottomright"
   )
 ```

diff --git 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