if (requireNamespace("sf", quietly = TRUE)) {
library(sf)
seine
plot(seine)
}
if (FALSE) {
library(sf)
library(rnaturalearth)
library(tidyverse)
seine = ne_download(scale = 10, type = "rivers_lake_centerlines",
category = "physical", returnclass = "sf") %>%
filter(name %in% c("Yonne", "Seine", "Marne")) %>%
select(name = name_en) %>%
st_transform(2154)
}
Run the code above in your browser using DataLab