# NOT RUN {
# get a list of GTFS feeds
spo <- system.file("extdata/saopaulo.zip", package = "gtfs2gps")
poa <- system.file("extdata/poa.zip", package = "gtfs2gps")
gtfs_list <- list(spo, poa)
new_gtfs <- merge_gtfs_feeds(gtfs_list)
# }
Run the code above in your browser using DataLab