Skip to contents

Extend prioritization with GTFS-RT metrics

Source: R/rt_extend_prioritization.R
rt_extend_prioritization.Rd

This function extends lane segment indicators for prioritization with metrics produced with GTFS-RT data.

Usage

rt_extend_prioritization(lane_prioritization, rt_collection, lane_buffer = 15)

Arguments

lane_prioritization

sf data.frame. Result of GTFShift::prioritize_lanes()

rt_collection

sf data.frame. GTFS-RT data collection. Must include speed column.

lane_buffer

numeric (Default 15). Buffer distance (in meters) to create around lane segments to capture nearby GTFS-RT points.

Value

The lane_prioritization sf data.frame, extended with the following columns:

  • speed_avg, the average speed of the vehicles on the way.

  • speed_median, the median speed of the vehicles on the way.

  • speed_p25, the 25th percentile speed of the vehicles on the way.

  • speed_p75, the 75th percentile speed of the vehicles on the way.

  • speed_count, the number of speed observations on the way.

Details

Extends the lane_prioritization data with speed metrics calculated from the GTFS-RT data points that fall within a buffer around each lane segment.

Refer to GTFShift::rt_collect_json() or GTFShift::rt_collect_protobuf() for details on GTFS-RT data collection.

Examples

if (FALSE) { # \dontrun{
rt_collect_file <- "gtfs_rt_data.csv"
GTFShift::rt_collect_json("https://api.example.com/gtfs-rt", rt_collect_file)
lane_prioritization <- GTFShift::prioritize_lanes(gtfs, osm_query)

rt_collection <- read.csv(rt_collect_file) |> sf::st_as_sf(coords = c("longitude", "latitude"), crs = 4326)
lane_prioritization_extended <- GTFShift::rt_extend_prioritization(
  lane_prioritization = lane_prioritization,
  rt_collection = rt_collection
)
} # }