only use unique stops in times_gtfs_to_gtfs

Author: mpadge

DESCRIPTION

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

R/prepare-data.R

@@ -334,7 +334,7 @@ times_gtfs_to_gtfs_batch <- function (gtfs,
                                       fname_gtfs_intervals,
                                       quiet) {
 
-    stops <- gtfs$stops$stop_id
+    stops <- unique (gtfs$stops$stop_id)
     nstops <- length (stops) # used only in progress bar
     index <- rep (
         seq (1L, ceiling (length (stops) / batch_size)),

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.053",
+  "version": "0.1.1.054",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",