CRAN Package Check Results for Package osrmr

Last updated on 2018-11-24 00:51:17 CET.

Check Details

Version: 0.1.29
Check: tests
Result: ERROR
     Running 'testthat.R' [2s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(osrmr)
     >
     > test_check("osrmr")
     -- 1. Error: viaroute finds routes (@test-basic_functions.R#15) ---------------
     reached elapsed time limit
     1: expect_equal(viaroute(lat1, lng1, lat2, lng2, F, api_version, localhost), 1560, tolerance = 300,
     scale = 1) at testthat/test-basic_functions.R:15
     2: quasi_label(enquo(object), label)
     3: eval_bare(get_expr(quo), get_env(quo))
     4: viaroute(lat1, lng1, lat2, lng2, F, api_version, localhost)
     5: viaroute_api_v5(lat1, lng1, lat2, lng2, instructions, address)
     6: R.utils::withTimeout({
     repeat {
     res <- try(route <- rjson::fromJSON(file = request))
     if (class(res) != "try-error") {
     if (!is.null(res)) {
     break
     }
     else {
     stop("in sim911::osrm_viaroute: calculate nearest necessary?")
     }
     }
     }
     }, timeout = 1, onTimeout = "warning")
     7: tryCatch({
     eval(expr, envir = envir)
     }, error = function(ex) {
     msg <- ex$message
     pattern <- gettext("reached elapsed time limit", "reached CPU time limit", domain = "R")
     pattern <- paste(pattern, collapse = "|")
     if (regexpr(pattern, msg) != -1L) {
     ex <- TimeoutException(msg, cpu = cpu, elapsed = elapsed)
     if (onTimeout == "error") {
     throw(ex)
     }
     else if (onTimeout == "warning") {
     warning(getMessage(ex))
     }
     else if (onTimeout == "silent") {
     }
     }
     else {
     throw(ex)
     }
     })
     8: tryCatchList(expr, classes, parentenv, handlers)
     9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     10: doTryCatch(return(expr), name, parentenv, handler)
     ...
     29: o_apply(self$reporters, "add_result", context = context, test = test, result = result)
     30: lapply(objects, function(x) x[[method]](...))
     31: FUN(X[[i]], ...)
     32: x[[method]](...)
     33: expectation_ok(result)
     34: expectation_type(exp) %in% c("success", "warning")
     35: expectation_type(exp)
     36: stopifnot(is.expectation(exp))
     37: match.call(expand.dots = FALSE)
     38: sys.call(sys.parent())
    
     == testthat results ===========================================================
     OK: 6 SKIPPED: 1 FAILED: 1
     1. Error: viaroute finds routes (@test-basic_functions.R#15)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-windows-ix86+x86_64