map_cta_routes.R

library(gtfsr)
library(magrittr)
library(dplyr)

set_api_key('2ec1ae29-b8c2-4a03-b96e-126d585233f9') # input your API key here

chi_feeds <- get_feedlist() %>% 
	filter(grepl('chicago', loc_t, ignore.case=TRUE)) 

cta_url <- chi_feeds$url_d[8] # get the GTFS feed url for CTA

gtfs_obj <- cta_url %>% import_gtfs # THIS TAKES FOREVER

agency <- gtfs_obj$agency_df$agency_name[1] # get agency name

map_gtfs_agency_routes(gtfs_obj) # if no agency, assumes only one agency
map_gtfs_agency_routes(gtfs_obj, agency) # can also be explicit