fix matching number of timetable entries in freqs table for #89

UrbanAnalyst · Oct 5, 2022 · a292613 · a292613
1 parent e4058c1
commit a292613
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: gtfsrouter
 Title: Routing with GTFS (General Transit Feed Specification) Data
-Version: 0.0.5.121
+Version: 0.0.5.122
 Authors@R: c(
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre")),
     person("Marcin", "Stepniak", , "[email protected]", role = "aut",

diff --git a/R/frequencies_to_stop_times.R b/R/frequencies_to_stop_times.R
@@ -104,7 +104,7 @@ frequencies_to_stop_times <- function (gtfs) {
     n <- sum (freqs$nseq)
     # plus total numbers of timetable entries:
     trip_id_table <- table (f_stop_times$trip_id)
-    index <- match (names (trip_id_table), freqs$trip_id)
+    index <- match (freqs$trip_id, names (trip_id_table))
     freqs$num_tt_entries <- trip_id_table [index]
 
     num_tt_entries_exp <- sum (freqs$num_tt_entries * freqs$nseq)

diff --git 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.121",
+  "version": "0.0.5.122",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",