Fix for Trailer Record Missing in NR CIF

Plus a devtools::document()

DESCRIPTION

@@ -27,7 +27,9 @@ Imports:
   doSNOW,
   dplyr,
   digest,
-  foreach, 
+  foreach,
+  future,
+  future.apply,
   geodist,
   httr,
   iotools,
@@ -39,6 +41,7 @@ Imports:
   pbapply,
   readr (>= 2.0),
   RcppSimdJson,
+  tidyr,
   xml2,
   zip,
 Suggests: 
@@ -48,4 +51,4 @@ Suggests:
     rmarkdown,
     testthat
 VignetteBuilder: knitr
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1

NAMESPACE

@@ -17,7 +17,10 @@ export(gtfs_read)
 export(gtfs_routes_sf)
 export(gtfs_split)
 export(gtfs_split_ids)
+export(gtfs_stop_frequency)
 export(gtfs_stops_sf)
+export(gtfs_trim_dates)
+export(gtfs_trips_per_zone)
 export(gtfs_trips_sf)
 export(gtfs_validate_internal)
 export(gtfs_write)

R/atoc_import.R

@@ -641,17 +641,26 @@ importMCA <- function(file,
     message(paste0(Sys.time(), " importing Trailer Record"))
   }
   ZZ <- raw[types == "ZZ"]
-  ZZ <- iotools::dstrfw(
-    x = ZZ,
-    col_types = rep("character", 2),
-    widths = c(2, 78)
-  )
-  names(ZZ) <- c("Record Identity", "Spare")
-  ZZ$Spare <- NULL
-  ZZ <- strip_whitespace(ZZ)
+  if(length(ZZ) > 0){
+    ZZ <- iotools::dstrfw(
+      x = ZZ,
+      col_types = rep("character", 2),
+      widths = c(2, 78)
+    )
+    names(ZZ) <- c("Record Identity", "Spare")
+    ZZ$Spare <- NULL
+    ZZ <- strip_whitespace(ZZ)
+
+    # Add the rowid
+    ZZ$rowID <- seq(from = 1, to = length(types))[types == "ZZ"]
+  } else {
+    # Trailer Record Missing
+    ZZ <- data.frame(`Record Identity` = "ZZ", `Spare` = "")
+    names(ZZ) <- c("Record Identity", "Spare")
+    ZZ$rowID = length(types) + 1
+  }
+
 
-  # Add the rowid
-  ZZ$rowID <- seq(from = 1, to = length(types))[types == "ZZ"]
 
   # Prep the main files
   if (!silent) {

R/transxchange_import6.R

@@ -61,7 +61,9 @@ transxchange_import <- function(file, run_debug = TRUE, full_import = FALSE) {
     JourneyPatternSections <- NULL
   }
 
+  ## VehicleJourneysTimingLinks #############################
 
+  VehicleJourneysTimingLinks <- NULL
 
   ## Services ##########################################
   Services <- xml2::xml_child(xml, "d1:Services")
@@ -143,7 +145,9 @@ transxchange_import <- function(file, run_debug = TRUE, full_import = FALSE) {
   DaysOfNonOperation <- VehicleJourneys$DaysOfNonOperation
   VehicleJourneys_notes <- VehicleJourneys$VJ_Notes
   VehicleJourneys <- VehicleJourneys$VehicleJourneys
-  VehicleJourneysTimingLinks <- NULL
+
+
+
 
 
   ## Final Steps #########################################