also write 'intervals' to temp file in 2nd pass of gtfs time calculation

Author: mpadge

DESCRIPTION

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

R/gtfs.R

@@ -194,6 +194,12 @@ gtfs_next_start_times <- function (gtfs, stops, start_times, start_interval) {
         c (stops [i], start_times [i] + c (0, start_interval))
     })
 
+    tdir <- fs::dir_ls (fs::path_temp (), regexp = "gtfstemp")
+    if (length (tdir) > 0L) {
+        checkmate::assert_character (tdir, len = 1L)
+        checkmate::assert_directory_exists (tdir)
+    }
+
     # gtfsrouter::traveltimes default params:
     minimise_transfers <- FALSE
     max_traveltime <- 60 * 60
@@ -226,6 +232,13 @@ gtfs_next_start_times <- function (gtfs, stops, start_times, start_interval) {
             stns <- array (NA_integer_, dim = c (nrow (gtfs$stops) + 1L, 3L))
         }
 
+        if (length (tdir) > 0L) {
+            f <- fs::path (tdir, s)
+            if (fs::file_exists (f)) {
+                write ("-intervals", file = f, append = TRUE)
+            }
+        }
+
         return (stns [-1, ]) # 3 cols: start_time, duration, ntransfers
     }, mc.cores = num_cores)
 

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