CRAN Package Check Results for Package ldat

Last updated on 2019-11-26 00:51:56 CET.

Check Details

Version: 0.2.0
Check: tests
Result: ERROR
     Running ‘tests.R’ [4s/17s]
    Running the tests in ‘tests/tests.R’ failed.
    Complete output:
     > library(ldat)
     Loading required package: lvec
    
     Attaching package: 'lvec'
    
     The following object is masked from 'package:base':
    
     order
    
     Loading required package: Rcpp
    
     Attaching package: 'ldat'
    
     The following objects are masked from 'package:base':
    
     append, match, table, which
    
     > library(testthat)
     >
     > test_check("ldat")
    
     *** caught bus error ***
     address f7c00000, cause 'object specific hardware error'
    
     Traceback:
     1: order.lvec(x)
     2: order(x)
     3: match.lvec(as_lvec(x), y, na_incomparable = TRUE)
     4: match(as_lvec(x), y, na_incomparable = TRUE)
     5: eval(code, test_env)
     6: eval(code, test_env)
     7: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
     8: doTryCatch(return(expr), name, parentenv, handler)
     9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     10: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     11: doTryCatch(return(expr), name, parentenv, handler)
     12: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     13: tryCatchList(expr, classes, parentenv, handlers)
     14: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
     15: test_code(desc, code, env = parent.frame())
     16: test_that("match works for numeric vectors", { x <- sample(c(2:5, NA, 7:10)) y <- sample(c(1, 3, 6, 9, 12, NA)) m_r <- match(x, y) m <- match(as_lvec(x), y) expect_that(as_rvec(m), equals(m_r)) m_r <- match(x, y, incomparables = NA) m <- match(as_lvec(x), y, na_incomparable = TRUE) expect_that(as_rvec(m), equals(m_r)) y <- sample(c(1, 3)) m_r <- match(x, y) m <- match(as_lvec(x), y) expect_that(as_rvec(m), equals(m_r)) m_r <- match(x, y, incomparables = NA) m <- match(as_lvec(x), y, na_incomparable = TRUE) expect_that(as_rvec(m), equals(m_r)) y <- sample(c(1)) m_r <- match(x, y) m <- match(as_lvec(x), y) expect_that(as_rvec(m), equals(m_r)) m_r <- match(x, y, incomparables = NA) m <- match(as_lvec(x), y, na_incomparable = TRUE) expect_that(as_rvec(m), equals(m_r)) x <- numeric(0) y <- numeric(0) m_r <- match(x, y) m <- match(as_lvec(x), y) expect_that(as_rvec(m), equals(m_r)) m_r <- match(x, y, incomparables = NA) m <- match(as_lvec(x), y, na_incomparable = TRUE) expect_that(as_rvec(m), equals(m_r))})
     17: eval(code, test_env)
     18: eval(code, test_env)
     19: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
     20: doTryCatch(return(expr), name, parentenv, handler)
     21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
     22: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
     23: doTryCatch(return(expr), name, parentenv, handler)
     24: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
     25: tryCatchList(expr, classes, parentenv, handlers)
     26: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
     27: test_code(NULL, exprs, env)
     28: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
     29: force(code)
     30: doWithOneRestart(return(expr), restart)
     31: withOneRestart(expr, restarts[[1L]])
     32: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     33: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter, { reporter$start_file(basename(path)) lister$start_file(basename(path)) source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap) reporter$.end_context() reporter$end_file() })
     34: FUN(X[[i]], ...)
     35: lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
     36: force(code)
     37: doWithOneRestart(return(expr), restart)
     38: withOneRestart(expr, restarts[[1L]])
     39: withRestarts(testthat_abort_reporter = function() NULL, force(code))
     40: with_reporter(reporter = current_reporter, results <- lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap))
     41: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     42: test_dir(path = test_path, reporter = reporter, env = env, filter = filter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     43: test_package_dir(package = package, test_path = test_path, filter = filter, reporter = reporter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
     44: test_check("ldat")
     An irrecoverable exception occurred. R is aborting now ...
Flavor: r-patched-solaris-x86