From a2926139005d489ce0b311d8964fa4406515ec3a Mon Sep 17 00:00:00 2001 From: mpadge Date: Wed, 5 Oct 2022 14:26:31 +0200 Subject: [PATCH] fix matching number of timetable entries in freqs table for #89 --- DESCRIPTION | 2 +- R/frequencies_to_stop_times.R | 2 +- codemeta.json | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 5b1537e9..316b4481 100644 --- 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", , "mark.padgham@email.com", role = c("aut", "cre")), person("Marcin", "Stepniak", , "marcinstepniak@ucm.es", role = "aut", diff --git a/R/frequencies_to_stop_times.R b/R/frequencies_to_stop_times.R index f3076ec5..3c10477a 100644 --- 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 index 0b4627b0..f0c05f59 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.121", + "version": "0.0.5.122", "programmingLanguage": { "@type": "ComputerLanguage", "name": "R",