inst/extdata/get_us_shapes.R

library(raster)
library(rmapshaper)

usa0 <- raster::getData(country = "USA", level = 0)
usa0 <- rmapshaper::ms_simplify(usa0)
saveRDS(usa0, "inst/extdata/usa0.RDS")

usa1 <- raster::getData(country = "USA", level = 1)
usa1 <- rmapshaper::ms_simplify(usa1, keep = 0.5)
saveRDS(usa1, "inst/extdata/usa1.RDS")

usa2 <- raster::getData(country = "USA", level = 2)
usa2 <- rmapshaper::ms_simplify(usa2, keep = 0.5)
saveRDS(usa2, "inst/extdata/usa2.RDS")

Try the leafdown package in your browser

Any scripts or data that you put into this service are public.

leafdown documentation built on Sept. 19, 2022, 9:05 a.m.