data-raw/hsh.R

In mdsumner/gibble: Geometry Decomposition

data("holey", package = "spbabel")
x <- spbabel::sp(holey, attr_tab = data.frame(a = 1:3))
hsh <- list(poly = as(x, "SpatialPolygons"), line = as(x, "SpatialLines"),
     point = as(as(x, "SpatialLines"), "SpatialMultiPoints"))

hsh_sf <- lapply(lapply(hsh, sf::st_as_sf), sf::st_geometry)
usethis::use_data(hsh_sf)