# read gtfs
data_path <- system.file("extdata/spo_gtfs.zip", package = "gtfstools")
gtfs <- read_gtfs(data_path)
stops_sf <- convert_stops_to_sf(gtfs)
head(stops_sf)
stops_sf <- convert_stops_to_sf(gtfs, stop_id = "18848")
stops_sf
Run the code above in your browser using DataLab