Add .gtfs.zip check

ropensci · May 5, 2024 · ff13b92 · ff13b92
1 parent 6959040
commit ff13b92
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/R/otp-setup.R b/R/otp-setup.R
@@ -497,6 +497,18 @@ otp_checks <- function(otp = NULL,
   } else {
     return(FALSE)
   }
+
+  if(otp_version >= 2){
+    fls_zip <- list.files(file.path(dir, "/graphs/", router), pattern = ".zip")
+    if(length(fls_zip) > 0){
+      if(any(!grepl("gtfs",fls_zip))){
+        warning(".zip files detected that are not .gtfs.zip, OTP 2.X will ignore these files")
+      }
+    }
+  }
+
+
+
 }