# comparing using country and geounit to filter
if (requireNamespace("rnaturalearthhires")) {
spdf_france_country <- ne_states(country = 'france')
spdf_france_geounit <- ne_states(geounit = 'france')
if (require(sp)) {
plot(spdf_france_country)
plot(spdf_france_geounit)
plot(ne_states(country = 'united kingdom'))
plot(ne_states(geounit = 'england'))
}
}
Run the code above in your browser using DataLab