Convert a GTFS shapes data loaded using gtfs2gps::read_gtf() into a line simple feature (sf).
Examples
poa <- read_gtfs(system.file("extdata/saopaulo.zip", package = "gtfs2gps"))
#> Unzipped the following files to /tmp/RtmpVbDcru/gtfsio:
#> * agency.txt
#> * calendar.txt
#> * frequencies.txt
#> * routes.txt
#> * shapes.txt
#> * stop_times.txt
#> * stops.txt
#> * trips.txt
#> Reading agency
#> Reading calendar
#> Reading frequencies
#> Reading routes
#> Reading shapes
#> Reading stop_times
#> Reading stops
#> Reading trips
poa_sf <- gtfs_shapes_as_sf(poa)