From 14ae888e917799e217bb0c83a76bc4ec79dd7d7b Mon Sep 17 00:00:00 2001 From: Daniel Chick Date: Mon, 23 Oct 2023 14:05:31 +0100 Subject: [PATCH] ZP-1246 addition of 110 route_type for rail replacement bus services --- R/atoc_main.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/atoc_main.R b/R/atoc_main.R index 32e779a..733c7b0 100644 --- 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 )