improve linting

rOpenSpain · Dec 13, 2024 · 6ba9f81 · 6ba9f81
1 parent d720aeb
commit 6ba9f81
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 9 deletions.
diff --git a/vignettes/articles/working_imagery.Rmd b/vignettes/articles/working_imagery.Rmd
@@ -77,8 +77,13 @@ madrid <- esp_get_ccaa("Madrid", epsg = 3857)
 
 # Example without transparency
 
-basemap <- esp_getTiles(madrid, "IDErioja.Claro", zoommin = 1, crop = TRUE, bbox_expand = 0)
-tile_opaque <- esp_getTiles(madrid, "RedTransporte.Carreteras", transparent = FALSE, crop = TRUE, bbox_expand = 0)
+basemap <- esp_getTiles(madrid, "IDErioja.Claro",
+  zoommin = 1,
+  crop = TRUE, bbox_expand = 0
+)
+tile_opaque <- esp_getTiles(madrid, "RedTransporte.Carreteras",
+  transparent = FALSE, crop = TRUE, bbox_expand = 0
+)
 
 ggplot() +
   geom_spatraster_rgb(data = basemap) +
@@ -91,7 +96,9 @@ Now let's check the same code using the `tranparent = TRUE` option:
 ```{r static_transp, fig.alt="Example on how to use alpha value for combining different types of basemaps."}
 # Example with transparency
 
-tile_alpha <- esp_getTiles(madrid, "RedTransporte.Carreteras", transparent = TRUE, crop = TRUE, bbox_expand = 0)
+tile_alpha <- esp_getTiles(madrid, "RedTransporte.Carreteras",
+  transparent = TRUE, crop = TRUE, bbox_expand = 0
+)
 
 # Same code than above for plotting
 ggplot() +

diff --git a/vignettes/articles/x02_mapasesp.Rmd b/vignettes/articles/x02_mapasesp.Rmd
@@ -495,12 +495,14 @@ stations <- esp_get_railway(spatialtype = "point", epsg = 4326)
 library(leaflet)
 # Creamos icono
 
-train_icon <- makeIcon(
-  "https://upload.wikimedia.org/wikipedia/commons/thumb/2/26/Map_icons_by_Scott_de_Jonge_-_train-station.svg/480px-Map_icons_by_Scott_de_Jonge_-_train-station.svg.png",
-  "https://upload.wikimedia.org/wikipedia/commons/thumb/2/26/Map_icons_by_Scott_de_Jonge_-_train-station.svg/480px-Map_icons_by_Scott_de_Jonge_-_train-station.svg.png",
-  18, 18
+iconurl <- paste0(
+  "https://upload.wikimedia.org/wikipedia/commons/thumb/2/26/",
+  "Map_icons_by_Scott_de_Jonge_-_train-station.svg/480px-Map_",
+  "icons_by_Scott_de_Jonge_-_train-station.svg.png"
 )
 
+train_icon <- makeIcon(iconurl, iconurl, 18, 18)
+
 
 leaflet(stations,
   elementId = "railway",
@@ -526,10 +528,10 @@ leaflet(stations,
   ) %>%
   addLayersControl(
     baseGroups = c("Base", "MTN"),
-    overlayGroups = c("Carreteras", "Lineas Ferroviarias", "Estaciones"),
+    overlayGroups = c("Estaciones", "Lineas Ferroviarias", "Carreteras"),
     options = layersControlOptions(collapsed = FALSE)
   ) %>%
-  hideGroup(c("Carreteras", "Lineas Ferroviarias", "Estaciones"))
+  hideGroup(c("Lineas Ferroviarias", "Carreteras"))
 ```
 
 ## Otros recursos