data-raw/inlandwaters.r

In mdsumner/scsf: Common Forms for Simple Features

f <- "https://github.com/r-gris/polyggon/raw/master/inst/extdata/inlandwaters.gpkg"
download.file(f, file.path("data-raw", basename(f)), mode = "wb")

library(sf)
library(dplyr)
inlandwaters <- st_read(file.path("data-raw", basename(f)), 
                        stringsAsFactors = FALSE) %>% 
  slice(c(1, 2, 3, 6, 7, 8))
plot(inlandwaters)

devtools::use_data(inlandwaters, compress = "xz")