data-raw/sf_data_zoo.R

data("sfzoo", package = "silicate")
library(sf)
sf_data_zoo <- lapply(lapply(sfzoo, st_sfc), function(x) st_as_sf(tibble::tibble(geometry = x, a = 1)))
devtools::use_data(sf_data_zoo)
r-gris/rangl documentation built on Nov. 18, 2022, 2:43 a.m.