# NOT RUN {
# Get a SpatRaster
x <- esp_get_ccaa("Galicia")
tile <- esp_getTiles(x, "IDErioja")
class(tile)
library(ggplot2)
ggplot(x) +
layer_spatraster(tile) +
geom_sf(color = "yellow", fill = NA) +
theme_minimal()
# }
Run the code above in your browser using DataLab