fix gtfs_next_intervals

UrbanAnalyst · Sep 28, 2023 · d10681e · d10681e
1 parent 763aad1
commit d10681e
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: m4ra
 Title: Many-to-Many Multi-Modal Routing Aggregator
-Version: 0.1.1.023
+Version: 0.1.1.024
 Authors@R: 
     person(given = "Mark",
            family = "Padgham",

diff --git a/R/gtfs.R b/R/gtfs.R
@@ -147,7 +147,7 @@ gtfs_next_intervals <- function (gtfs, stops, res, start_time_limits) {
     # may differ, but generally almost all connections leave on same service,
     # the start time of which is then accurately captured by the modal value.
     start_times <- vapply (res, function (i) {
-        index <- which (i [, 1] < (24L * 3600L))
+        index <- which (i [, 1] > 0 & i [, 1] < (24L * 3600L))
         out <- NA_integer_
         if (length (index) > 0L) {
             vals <- sort (i [index, 1])

diff --git a/codemeta.json b/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.023",
+  "version": "0.1.1.024",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",