# NOT RUN {
library(sf)
OriginalCan <- esp_get_country(moveCAN = FALSE)
plot(OriginalCan$geometry, col = hcl.colors(5))
MovedCan <- esp_get_country(moveCAN = TRUE)
plot(MovedCan$geometry, col = hcl.colors(5))
# }
Run the code above in your browser using DataLab