Request public transport connections between given points and find stations nearby using the ‘HERE Public Transit’ API.
The function connection() allows to request public
transport connections from the API. Two types of requests are
provided:
connection(..., summary = FALSE): The public transport
connections are returned as multiple sections with the same vehicle and
transport mode. Each row represents a section with a detailed route
geometry.connection(..., summary = TRUE): A summary of the
connections is retrieved, where each connection is represented as one
row with a unified and simplified geometry.Request available public transport connections as detailed sections:
connection_section <- connection(
origin = poi[3:4, ],
destination = poi[5:6, ],
summary = FALSE
)The id column corresponds to the row of the input
locations (origin and destination) and the
rank column enumerates the alternative routes. The maximum
number of alternatives can be set by the results parameter.
Each row in the returned sf object corresponds to a route
section with a transport mode in a vehicle without a transfer.
| id | rank | section | departure | origin | arrival | destination | mode | category | vehicle | provider | direction | distance | duration |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 1 | 1 | 2023-09-18 12:48:00 | ORIG | 2023-09-18 12:52:00 | Lausanne, Vallonnette | pedestrian | NA | NA | NA | NA | 211 | 240 |
| 1 | 1 | 2 | 2023-09-18 12:52:00 | Lausanne, Vallonnette | 2023-09-18 13:01:00 | Lausanne, St-François | bus | Bus Service | 6 | Transports Publics de la Région Lausannoise sa | Lausanne, Montoie | 3218 | 540 |
| 1 | 1 | 3 | 2023-09-18 13:03:00 | Lausanne, St-François | 2023-09-18 13:07:00 | Lausanne, Closelet | bus | Bus Service | 2 | Transports Publics de la Région Lausannoise sa | Lausanne, Maladière-Lac | 1003 | 240 |
| 1 | 1 | 4 | 2023-09-18 13:07:00 | Lausanne, Closelet | 2023-09-18 13:12:00 | Lausanne | pedestrian | NA | NA | NA | NA | 300 | 300 |
| 1 | 1 | 5 | 2023-09-18 13:13:00 | Lausanne | 2023-09-18 14:27:00 | Bern | intercityTrain | Long Distance Trains | IC1 | Schweizerische Bundesbahnen SBB | St. Gallen | 97030 | 4440 |
| 1 | 1 | 6 | 2023-09-18 14:32:00 | Bern | 2023-09-18 14:43:00 | Kehrsatz Nord | cityTrain | Suburban Railway | S3 | BLS AG (bls) | Belp | 8686 | 660 |
Print the public transport sections on an interactive leaflet map:
if (requireNamespace("mapview", quietly = TRUE)) {
mapview::mapview(connection_section,
zcol = "mode",
layer.name = "Transport mode",
map.types = c("Esri.WorldTopoMap"),
homebutton = FALSE
)
}Request a summary of the available public transport connections:
connection_summary <- connection(
origin = poi[3:4, ],
destination = poi[5:6, ],
summary = TRUE
)| id | rank | departure | origin | arrival | destination | transfers | modes | categories | vehicles | providers | distance | duration |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 1 | 2023-09-18 12:48:00 | Lausanne, Vallonnette | 2023-09-18 14:46:00 | Kehrsatz Nord | 3 | pedestrian, bus, bus, pedestrian, intercityTrain, cityTrain, pedestrian | Bus Service, Bus Service, Long Distance Trains, Suburban Railway | 6, 2, IC1, S3 | Transports Publics de la Région Lausannoise sa, Transports Publics de la Région Lausannoise sa, Schweizerische Bundesbahnen SBB, BLS AG (bls) | 110651 | 6600 |
| 1 | 2 | 2023-09-18 12:54:00 | Lausanne, Georgette | 2023-09-18 15:40:00 | Wabern, Kleinwabern | 3 | pedestrian, bus, pedestrian, intercityTrain, cityTrain, pedestrian, bus, pedestrian | Bus Service, Inter Regional Rail Service, Suburban Railway, Bus Service | 1, IR15, S3, 22 | Transports Publics de la Région Lausannoise sa, Schweizerische Bundesbahnen SBB, BLS AG (bls), Städtische Verkehrsbetriebe Bern | 109116 | 9180 |
| 2 | 1 | 2023-09-18 13:00:00 | Kleinhüningen | 2023-09-18 14:41:00 | Zürich HB | 1 | pedestrian, lightRail, pedestrian, highSpeedTrain, pedestrian | Tram Service, High Speed Rail Service | 8, TGV TGV | Basler Verkehrsbetriebe, Schweizerische Bundesbahnen SBB | 97006 | 5880 |
| 2 | 2 | 2023-09-18 13:02:00 | Kleinhüningen | 2023-09-18 14:41:00 | Zürich HB | 2 | pedestrian, bus, pedestrian, cityTrain, highSpeedTrain, pedestrian | Bus Service, Suburban Railway, High Speed Rail Service | 46, S6, TGV TGV | Basler Verkehrsbetriebe, SBB GmbH (Grenzverkehr), Schweizerische Bundesbahnen SBB | 96896 | 5460 |
The function station() allows to request public
transport stations nearby points of interest (POIs). The
radius defines the maximum search distance in meters and
results specifies the maximum number of returned stations.
The returned sf object contains the locations of the
stations and the available public transport lines at the station.
stations <- station(
poi = poi,
radius = 500,
results = 5
)Print the POIs, the radius and stations on an interactive leaflet map:
buffer <-
poi %>%
st_transform(2056) %>%
st_buffer(500) %>%
st_transform(4326)
if (requireNamespace("mapview", quietly = TRUE)) {
m <-
mapview::mapview(poi,
alpha.region = 1, col.region = "black",
label = poi$city, layer.name = "POIs",
map.types = c("Esri.WorldTopoMap"), homebutton = FALSE
) +
mapview::mapview(stations,
col.region = "yellow", alpha = 1,
label = stations$station, layer.name = "Stations",
homebutton = FALSE
) +
mapview::mapview(buffer,
col.region = "transparent", alpha.region = 0,
layer.name = "Buffer", homebutton = FALSE, legend = FALSE
)
m
}