diff --git a/DESCRIPTION b/DESCRIPTION index 33324e4f..8e13af92 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: gtfsrouter Title: Routing with GTFS (General Transit Feed Specification) Data -Version: 0.0.5.091 +Version: 0.0.5.092 Authors@R: c( person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")), person("Marcin", "Stepniak", , "marcinstepniak@ucm.es", role = "aut", diff --git a/R/router.R b/R/router.R index 94377901..c84a11eb 100644 --- a/R/router.R +++ b/R/router.R @@ -433,7 +433,7 @@ map_all_trips <- function (gtfs, route, include_ids) { # no visible binding note: trip_id <- trip_headsign <- route_id <- route_short_name <- NULL - trip_ids <- gtfs$trip_ids [unique (route$trip_number)] [, trip_ids] + trip_ids <- unique (route$trip_id [order (route$time)]) # trips with from_to_are_ids can end with trip_ids of NA from transfers trip_ids <- trip_ids [!is.na (trip_ids)] res <- do.call (rbind, lapply (trip_ids, function (i) { diff --git a/codemeta.json b/codemeta.json index 949fc2e1..0772e232 100644 --- a/codemeta.json +++ b/codemeta.json @@ -7,7 +7,7 @@ "codeRepository": "https://github.com/ATFutures/gtfs-router", "issueTracker": "https://github.com/ATFutures/gtfs-router/issues", "license": "https://spdx.org/licenses/GPL-3.0", - "version": "0.0.5.091", + "version": "0.0.5.092", "programmingLanguage": { "@type": "ComputerLanguage", "name": "R",