Returns the geometry of each specified
trip_id, based either on the
shapes or the
stop_times file (or both).
get_trip_geometry(gtfs, trip_id = NULL, file = NULL, crs = 4326)
A GTFS object, as created by
A character vector including the
A character vector specifying the file from which geometries
should be generated (either one of or both
The CRS of the resulting object, either as an EPSG code or as an
The geometry generation works differently for the two files. In the case of
shapes, the shape as described in the text file is converted to an
stop_times the geometry is the result of linking subsequent
stops along a straight line (stops' coordinates are retrieved from the
stops file). Thus, the resolution of the geometry when generated with
shapes tends to be much higher than when created with
data_path <- system.file("extdata/spo_gtfs.zip", package = "gtfstools") gtfs <- read_gtfs(data_path) trip_geometry <- get_trip_geometry(gtfs) head(trip_geometry) # the above is identical to trip_geometry <- get_trip_geometry(gtfs, file = c("shapes", "stop_times")) head(trip_geometry) trip_ids <- c("CPTM L07-0", "2002-10-0") trip_geometry <- get_trip_geometry(gtfs, trip_id = trip_ids) trip_geometry plot(trip_geometry["origin_file"])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.