spaceout test-frequencies.R

UrbanAnalyst · Aug 16, 2023 · 10255ec · 10255ec
1 parent 07d158a
commit 10255ec
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: gtfsrouter
 Title: Routing with GTFS (General Transit Feed Specification) Data
-Version: 0.1.0.027
+Version: 0.1.0.028
 Authors@R: c(
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre")),
     person("Marcin", "Stepniak", , "[email protected]", role = "aut",

diff --git a/codemeta.json b/codemeta.json
@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/UrbanAnalyst/gtfsrouter",
   "issueTracker": "https://github.com/UrbanAnalyst/gtfsrouter/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.0.027",
+  "version": "0.1.0.028",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

diff --git a/tests/testthat/test-frequencies.R b/tests/testthat/test-frequencies.R
@@ -173,10 +173,11 @@ test_that ("gtfs with mixed frequencies", {
         gtfs$routes [route_short_name ==
             "U1"] [["route_id"]]]
 
-    sel_trip_id_U1 <- head (gtfs$stop_times [trip_id %in% # nolint
-        trips_U1$trip_id,
-    .N,
-    by = "trip_id"
+    sel_trip_id_U1 <- head (gtfs$stop_times [
+        trip_id %in% # nolint
+            trips_U1$trip_id,
+        .N,
+        by = "trip_id"
     ] [N == max (N), trip_id], 1)
 
     gtfs$trips <- gtfs$trips [trip_id %in% c (trips_U3$trip_id, sel_trip_id_U1)]