if (FALSE) {
library(MazamaSpatialUtils)
FR <-
SimpleCountries %>%
dplyr::filter(countryCode == "FR")
par(mfrow = c(3, 3), mar = c(1, 1, 3, 1))
for (i in 9:1) {
keep <- 0.1 * i
geom <-
FR %>%
simplify(keep) %>%
sf::st_geometry()
plot(geom, main=paste0("keep = ", keep))
}
layout(1)
par(mar = c(5,4,4,2)+.1)
}
Run the code above in your browser using DataLab