Nothing
library(rnaturalearth)
library(sf)
library(dplyr)
rivers <- rnaturalearth::ne_download(scale = 50, type = "rivers_lake_centerlines_scale_rank", category = "physical", returnclass = "sf")
rivers$strokeweig <- rivers$strokeweig * 10
rivers <- rivers %>% select(name, type=featurecla, scalerank, strokelwd = strokeweig)
#rivers$name <- factor(rivers$name)
rivers$type <- factor(rivers$type)
rivers$scalerank <- as.integer(rivers$scalerank)
rivers$strokelwd <- as.numeric(rivers$strokelwd)
Encoding(rivers$name) <- "latin1"
rivers$name <- iconv(
rivers$name,
"latin1",
"ASCII",
""
)
x <- grep("I_WAS_NOT_ASCII", iconv(levels(rivers$name), "latin1", "ASCII", sub="I_WAS_NOT_ASCII"))
rivers = st_set_crs(rivers, 4326)
rivers = rivers %>%
filter(!is.na(type))
save(rivers, file="data/rivers.rda", compress="xz")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.