also fix 'gtfs_next_start_times' when stops have duplicted ids

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: m4ra
 Title: Many-to-Many Multi-Modal Routing Aggregator
-Version: 0.1.1.052
+Version: 0.1.1.053
 Authors@R: 
     person(given = "Mark",
            family = "Padgham",

R/gtfs.R

@@ -180,10 +180,6 @@ gtfs_next_intervals <- function (gtfs, stops, res, start_time_limits) {
     )
     next_starts [next_starts <= 0] <- NA_integer_
 
-    # reduce dimension to only unique stops:
-    index <- match (gtfs$stop_ids$stop_ids, gtfs$stops$stop_id)
-    next_starts <- next_starts [, index]
-
     first_starts <- lapply (res, function (i) as.vector (i [, 1]))
     first_starts <- do.call (rbind, first_starts)
     first_starts [first_starts == .Machine$integer.max | first_starts <= 0] <- NA_integer_
@@ -246,7 +242,7 @@ gtfs_next_start_times <- function (gtfs, stops, start_times, start_interval) {
     start_times [start_times == .Machine$integer.max] <- NA_integer_
 
     rownames (start_times) <- stop_names
-    colnames (start_times) <- gtfs$stops$stop_id
+    colnames (start_times) <- gtfs$stop_ids$stop_id
 
     # diag (start_times) <- 0L # diagonals set in prepare-data routines:
 

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/m4ra",
   "issueTracker": "https://github.com/UrbanAnalyst/m4ra/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.1.052",
+  "version": "0.1.1.053",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",