data(cr_outline)
plot(sf::st_geometry(cr_outline), main = "Costa Rica (full territory)")
if (FALSE) {
# Compare continental vs full
par(mfrow = c(1, 2))
plot(sf::st_geometry(cr_outline_c), main = "Continental")
plot(sf::st_geometry(cr_outline), main = "Full territory")
}
Run the code above in your browser using DataLab