# \donttest{
local_gtfs_path <- system.file("extdata",
"nyc_subway.zip",
package = "tidytransit")
nyc <- read_gtfs(local_gtfs_path)
plot(nyc)
# }
Run the code above in your browser using DataLab