# \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)) {
wld |> st_break_antimeridian(lon_0=lon_0) |>
st_transform(paste0("+proj=natearth +lon_0=", lon_0)) |>
st_geometry() |> plot(main=lon_0)
}
par(opar)
}
# }
Run the code above in your browser using DataLab