# NOT RUN {
grid <- esp_get_grid_ESDAC()
esp <- esp_get_country(moveCAN = FALSE)
library(ggplot2)
ggplot(grid) +
geom_sf() +
geom_sf(data = esp, color = "grey50", fill = NA) +
theme_light() +
labs(title = "ESDAC Grid for Spain")
# }
Run the code above in your browser using DataLab