# NOT RUN {
grid <- esp_get_grid_EEA(type = "main", resolution = 100)
grid_can <- esp_get_grid_EEA(type = "canary", resolution = 100)
esp <- esp_get_country(moveCAN = FALSE)
library(ggplot2)
ggplot(grid) +
geom_sf() +
geom_sf(data = grid_can) +
geom_sf(data = esp, fill = NA) +
theme_light() +
labs(title = "EEA Grid for Spain")
# }
Run the code above in your browser using DataLab