Update setup_r5.R

thanls, alex. I`ve made a small change just to make sure the package throws an error (not just a warning) when the geographc extent of the input data is too large

Author: rafapereirabr

r-package/R/setup_r5.R

@@ -167,8 +167,7 @@ setup_r5 <- function(data_path,
     if (!is.null(ex)) {
       msg <- rJava::.jcall(ex, "S", "toString")
       if (grepl("Geographic extent of street layer", msg)) {
-        warning("Street layer too large.")
-        return(NULL)
+        stop("Street layer too large.")
       } else {
       ex$printStackTrace()
       return(NULL)