ZP-1246 addition of 110 route_type for rail replacement

bus services
Zipabout · Oct 23, 2023 · 14ae888 · 14ae888
1 parent 1982f9f
commit 14ae888
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/atoc_main.R b/R/atoc_main.R
@@ -110,9 +110,10 @@ schedule2routes <- function(stop_times, schedule, silent = TRUE, ncores = 1) {
 
   trips <- dplyr::left_join(trips, routes, by = c("ATOC Code" = "ATOC Code", "route_long_name" = "route_long_name", "Train Status" = "Train Status"))
 
+ # 110 is used for Rail Replacement Bus Services
   train_status <- data.frame(
     train_status = c("B", "F", "P", "S", "T", "1", "2", "3", "4", "5"),
-    route_type = c(3, NA, 2, 4, NA, 2, NA, NA, 4, 3),
+    route_type = c(3, NA, 2, 4, NA, 2, NA, NA, 4, 110),
     stringsAsFactors = FALSE
   )