# NOT RUN {
cntries <- gisco_get_countries()
library(ggplot2)
ggplot(cntries) +
geom_sf()
# Get a region
africa <- gisco_get_countries(region = "Africa")
ggplot(africa) +
geom_sf(fill = "#078930", col = "white") +
theme_minimal()
# }
# NOT RUN {
if (gisco_check_access()) {
# Extract points
asia_pol <- gisco_get_countries(region = "Asia", resolution = "3")
asia_lb <- gisco_get_countries(spatialtype = "LB", region = "Asia")
ggplot(asia_pol) +
geom_sf(fill = "gold3") +
geom_sf(data = asia_lb, color = "#007FFF")
}
# }
Run the code above in your browser using DataLab