# \donttest{
if (require("maps", quietly=TRUE)) {
opar = par(mfrow=c(3, 2))
wld = st_as_sf(map(fill=FALSE, interior=FALSE, plot=FALSE), fill=FALSE)
for (lon_0 in c(-170, -90, -10, 10, 90, 170)) {
br = st_break_antimeridian(wld, lon_0 = lon_0)
tr = st_transform(br, paste0("+proj=natearth +lon_0=", lon_0))
plot(st_geometry(tr), main=lon_0)
}
par(opar)
}
# }
Run the code above in your browser using DataLab