Update transxchange.Rmd

itsleeds · May 6, 2020 · 11a6c10 · 11a6c10
1 parent 9e97a11
commit 11a6c10
Showing 1 changed file with 18 additions and 6 deletions.
diff --git a/vignettes/transxchange.Rmd b/vignettes/transxchange.Rmd
@@ -49,19 +49,31 @@ transxchange2gtfs(path_in = path_in,
 
 
 ```{r test, eval =  FALSE, echo=FALSE}
+# Setup
+#onedrive <- "C:/Users/malco/OneDrive - University of Leeds/"
+onedrive <- "E:/OneDrive - University of Leeds/"
+ncores <- 5
+
+
 library(UK2GTFS)
-path_in <- "C:/Users/malco/OneDrive - University of Leeds/Data/UK2GTFS/TransXChange/data_20201102/"
+path_in <- paste0(onedrive,"Data/UK2GTFS/TransXChange/data_20201102/")
 files <- list.files(path_in, full.names = FALSE, pattern = "zip")
+files <- files[files != "NCSD.zip"]
+
+cal = get_bank_holidays()
+naptan = get_naptan()
 
-for(i in 12:length(files)){
+for(i in 1:length(files)){
   message(files[i])
   file_in <-  file.path(path_in,files[i])
-  path_out = "C:/Users/malco/OneDrive - University of Leeds/Data/UK2GTFS/GTFS/gtfs_20201102/"
+  path_out <- paste0(onedrive,"Data/UK2GTFS/GTFS/gtfs_20201102")
   name_out <- gsub(".zip","",files[i], fixed = TRUE)
-  transxchange2gtfs(path_in = file_in,
+  gtfs <- transxchange2gtfs(path_in = file_in,
                   path_out = path_out,
-                  name = name_out,
-                  ncores = 3)
+                  name = name_out,,
+                  cal = cal,
+                  naptan = naptan,
+                  ncores = ncores)
 }