Running ‘testthat.R’ [66s/103s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(baggr)
  Loading required package: Rcpp
  This is baggr; see vignette('baggr') for tutorial, ?baggr for basic help.
  For execution on a local, multicore CPU with excess RAM call:
  options(mc.cores = parallel::detectCores())
  > 
  > test_check("baggr")
  
  
    |                                                                            
    |                                                                      |   0%
    |                                                                            
    |=========                                                             |  12%
    |                                                                            
    |==================                                                    |  25%
    |                                                                            
    |==========================                                            |  38%
    |                                                                            
    |===================================                                   |  50%
    |                                                                            
    |============================================                          |  62%
    |                                                                            
    |====================================================                  |  75%
    |                                                                            
    |=============================================================         |  88%
    |                                                                            
    |======================================================================| 100%
  
   *** caught segfault ***
  address 0x8, cause 'memory not mapped'
  
  Traceback:
   1: plot.baggr(bg5_n)
   2: plot(bg5_n)
   3: eval_bare(expr, quo_get_env(quo))
   4: quasi_label(enquo(object), label, arg = "object")
   5: expect_is(plot(bg5_n), "gg")
   6: eval(code, test_env)
   7: eval(code, test_env)
   8: 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)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  12: doTryCatch(return(expr), name, parentenv, handler)
  13: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  14: tryCatchList(expr, classes, parentenv, handlers)
  15: 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) {    })
  16: test_code(desc, code, env = parent.frame(), reporter = reporter)
  17: test_that("Plotting works", {    expect_is(plot(bg5_ppd), "gg")    expect_is(plot(bg5_n), "gg")    expect_is(plot(bg5_p, order = TRUE), "gg")    expect_is(plot(bg5_f, order = FALSE), "gg")    expect_error(plot(bg5_n, style = "rubbish"), "argument must be one of")})
  18: eval(code, test_env)
  19: eval(code, test_env)
  20: 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)
  21: doTryCatch(return(expr), name, parentenv, handler)
  22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  24: doTryCatch(return(expr), name, parentenv, handler)
  25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  26: tryCatchList(expr, classes, parentenv, handlers)
  27: 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) {    })
  28: test_code(NULL, exprs, env)
  29: source_file(path, child_env(env), wrap = wrap)
  30: FUN(X[[i]], ...)
  31: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  32: doTryCatch(return(expr), name, parentenv, handler)
  33: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  34: tryCatchList(expr, classes, parentenv, handlers)
  35: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  36: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  37: 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)
  38: 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)
  39: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  40: test_check("baggr")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault