# \dontshow{
old_dt_threads <- data.table::setDTthreads(1)
on.exit(data.table::setDTthreads(old_dt_threads), add = TRUE)
# }
# read gtfs
data_path <- system.file("extdata/spo_gtfs.zip", package = "gtfstools")
gtfs <- read_gtfs(data_path)
shapes_sf <- convert_shapes_to_sf(gtfs)
head(shapes_sf)
shapes_sf <- convert_shapes_to_sf(gtfs, shape_id = "17846")
shapes_sf
Run the code above in your browser using DataLab