transit-stop-locations.R

# code to get all stop locations from a GTFS feed and save them as a shapefile
library(tidytransit)
library(sf)

# find your agency's GTFS feed on https://openmobilitydata.org/feeds
gtfs <- read_gtfs("http://kamino.mcts.org/gtfs/google_transit.zip")
 
stops <- gtfs$stops

stops_sf <- st_as_sf(stops, coords = c("stop_lon", "stop_lat"))

# you can specify other output formats too
st_write(stops_sf, "stops.shp")