Running ‘testthat.R’ [435s/102s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ranger)
  > 
  > test_check("ranger")
  ── 3. Error: (unknown) (@test_importance_pvalues.R#94)  ────────────────────────
  unable to find required package 'GenABEL'
  1: test_that("HoldoutRF working with GenABEL data", {
         holdout_gwaa <- holdoutRF(CHD ~ ., dat_gwaa, num.trees = 10)
         expect_is(holdout_p0, "holdoutRF")
     }) at testthat/test_importance_pvalues.R:94
  2: test_code(desc, code, env = parent.frame())
  3: 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) {
     })
  4: tryCatchList(expr, classes, parentenv, handlers)
  5: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  6: doTryCatch(return(expr), name, parentenv, handler)
  7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  10: register_expectation(e)
  ...
  20: paste0(cli::rule(header, col = testthat_style("error")), "\n", format(x))
  21: format(x)
  22: format.expectation_error(x)
  23: paste(c(x$message, create_traceback(x$call)), collapse = "\n")
  24: create_traceback(x$call)
  25: lapply(callstack, deparse, width.cutoff = cli::console_width())
  26: FUN(X[[i]], ...)
  27: (function (Class, where = topenv(parent.frame()), package = packageSlot(Class), inherits = TRUE) 
     {
         if (inherits) {
             value <- .getClassesFromCache(Class)
             if (is.list(value)) 
                 value <- .resolveClassList(value, where, package)
         }
         else value <- NULL
         if (is.null(value)) {
             cname <- classMetaName(if (length(Class) > 1L) 
                 Class[[1L]]
             else Class)
             if (is.character(where)) {
                 package <- where
             }
             if (isTRUE(nzchar(package))) {
                 whereP <- .requirePackage(package)
                 value <- get0(cname, whereP, inherits = inherits)
             }
             if (is.null(value)) 
                 value <- get0(cname, where, inherits = inherits)
         }
         value
     })(structure("snp.mx", package = "GenABEL"))
  28: .requirePackage(package)
  29: stop(gettextf("unable to find required package %s", sQuote(package)), domain = NA)
  
  ── 4. Error: (unknown) (@test_ranger.R#7)  ─────────────────────────────────────
  Package GenABEL is required for testing ranger completely. Please install it.
  1: stop("Package GenABEL is required for testing ranger completely. Please install it.", 
         call. = FALSE) at testthat/test_ranger.R:7
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 437 SKIPPED: 0 FAILED: 4
  1. Error: HoldoutRF working with GenABEL data (@test_importance_pvalues.R#95) 
  2. Error: HoldoutRF working with GenABEL data (@test_importance_pvalues.R#95) 
  3. Error: (unknown) (@test_importance_pvalues.R#94) 
  4. Error: (unknown) (@test_ranger.R#7) 
  
  Error: testthat unit tests failed
  Execution halted