Merge pull request #426 from ipeaGIT/alex-#386

Issue #386

Author: rafapereirabr

r-package/R/setup_r5.R

@@ -164,9 +164,14 @@ setup_r5 <- function(data_path,
     # build new r5r_core
     r5r_core <- rJava::.jnew("org.ipea.r5r.R5RCore", data_path, verbose, elevation, check=F)
     ex = rJava::.jgetEx(clear=T)
-    if (!is.null(NULL)) {
+    if (!is.null(ex)) {
+      msg <- rJava::.jcall(ex, "S", "toString")
+      if (grepl("Geographic extent of street layer", msg)) {
+        stop("Street layer too large.")
+      } else {
       ex$printStackTrace()
       return(NULL)
+      }
     }
 
     # display a message if there is a PBF file but no GTFS data