data-raw/create-gtfs_obj.R

devtools::load_all()
url <- "http://data.trilliumtransit.com/gtfs/duke-nc-us/duke-nc-us.zip"
gtfs_obj <- import_gtfs(url, quiet=TRUE)
saveRDS(gtfs_obj, here::here('data-raw/gtfs_obj'))
devtools::use_data(gtfs_obj)
ropenscilabs/gtfsr documentation built on June 11, 2022, 9:45 p.m.