Running ‘test-all.R’ [21s/53s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > test_check("SpaDES.tools")
  Loading required package: SpaDES.tools
  
   *** caught segfault ***
  address (nil), cause 'unknown'
  
  Traceback:
   1: RandomFieldsUtils::RFoptions()
   2: internal.rfoptions(xyz_notation = length(y) != 0, expected_number_simu = n,     ..., RELAX = !missing(model) && is(model, "formula"))
   3: RandomFields::RFsimulate(model, y = 1:ncSpeedup, x = 1:nrSpeedup,     grid = TRUE, ...)
   4: raster(RandomFields::RFsimulate(model, y = 1:ncSpeedup, x = 1:nrSpeedup,     grid = TRUE, ...))
   5: gaussMap(a, speedup = 10, method = "RMexp2")
   6: withCallingHandlers(code, message = function(condition) {    out$push(condition)    maybe_restart("muffleMessage")})
   7: capture_messages(hab <- gaussMap(a, speedup = 10, method = "RMexp2"))
   8: eval(code, test_env)
   9: eval(code, test_env)
  10: 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)
  11: doTryCatch(return(expr), name, parentenv, handler)
  12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  13: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  14: doTryCatch(return(expr), name, parentenv, handler)
  15: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  16: tryCatchList(expr, classes, parentenv, handlers)
  17: 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) {    })
  18: test_code(desc, code, env = parent.frame(), reporter = reporter)
  19: test_that("gaussMap does not work", {    skip_if_not_installed("RandomFields", "3.1.24")    a <- raster::raster(raster::extent(0, 10, 0, 10), res = 1)    theMessage <- capture_messages(hab <- gaussMap(a, speedup = 10,         method = "RMexp2"))    expect_true(startsWith(theMessage, "method is not yet implemented, defaulting to RMexp"))    expect_silent(gaussMap(a, speedup = 10, method = "RMexp"))    expect_silent(gaussMap(a, speedup = 10, method = "RMgauss"))    expect_silent(gaussMap(a, speedup = 10, method = "RMstable"))    expect_error(hab <- gaussMap(a, speedup = 10, method = "RMstable",         alpha = 3))    expect_error(hab <- gaussMap(a, speedup = 10, method = RMexp))    expect_error(hab <- gaussMap(a, var = -1))})
  20: eval(code, test_env)
  21: eval(code, test_env)
  22: 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)
  23: doTryCatch(return(expr), name, parentenv, handler)
  24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  25: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  26: doTryCatch(return(expr), name, parentenv, handler)
  27: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  28: tryCatchList(expr, classes, parentenv, handlers)
  29: 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) {    })
  30: test_code(NULL, exprs, env)
  31: source_file(path, child_env(env), wrap = wrap)
  32: FUN(X[[i]], ...)
  33: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  34: doTryCatch(return(expr), name, parentenv, handler)
  35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  36: tryCatchList(expr, classes, parentenv, handlers)
  37: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  38: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  39: test_files(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap, load_package = load_package)
  40: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap, load_package = load_package, parallel = parallel)
  41: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  42: test_check("SpaDES.tools")
  An irrecoverable exception occurred. R is aborting now ...