data-raw/routes.R

library(stplanr)
library(sf)
routes <- routes_fast_sf[as.numeric(st_length(routes_fast_sf)) > 0, "ID"]
class(routes$geometry) <- c("sfc_LINESTRING", "sfc" , "list")
usethis::use_data(routes, overwrite = TRUE)
mdsumner/sc documentation built on Jan. 16, 2024, 2:03 a.m.