Running ‘purged.filesizes.R’
  Running ‘testthat.R’ [5s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(purge)
  > 
  > test_check("purge")
  
   *** caught segfault ***
  address fe08, cause 'memory not mapped'
  
  Traceback:
   1: gsub("^expectation_", "", class(exp)[[1]])
   2: expectation_type(exp)
   3: expectation_failure(exp)
   4: expectation_broken(exp)
   5: doWithOneRestart(return(expr), restart)
   6: withOneRestart(expr, restarts[[1L]])
   7: withRestarts(if (expectation_broken(exp)) {    stop(exp)} else {    signalCondition(exp)}, continue_test = function(e) NULL)
   8: expect(inherits(object, class), sprintf("%s inherits from `%s` not `%s`.",     lab, act, exp), info = info)
   9: expect_is(purged.model, "merMod")
  10: eval(expr, envir, enclos)
  11: eval(code, test_env)
  12: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  13: doTryCatch(return(expr), name, parentenv, handler)
  14: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  15: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatch(withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error), error = function(e) {}, skip = function(e) {})
  20: test_code(desc, code, env = parent.frame())
  21: test_that("merMod purge works correctly", {    if (requireNamespace("lme4", quietly = TRUE)) {        sample.size <- 1000        x <- rnorm(sample.size)        y <- rnorm(sample.size)        z <- as.factor(runif(sample.size) > 0.5)        unpurged.model <- lme4::lmer(y ~ x + (1 | z))        purged.model <- purge(unpurged.model)        test.new.data <- data.frame(x = 1:10, z = as.factor(runif(10) >             0.5))        expect_is(purged.model, "merMod")        purge_test_helper(unpurged.model, purged.model, test.new.data)    }})
  22: eval(expr, envir, enclos)
  23: eval(exprs, env)
  24: source_file(path, new.env(parent = env), chdir = TRUE)
  25: force(code)
  26: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE)        end_context()    })
  27: FUN(X[[i]], ...)
  28: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  29: force(code)
  30: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  31: test_files(paths, reporter = reporter, env = env, ...)
  32: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  33: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  34: run_tests(package, test_path, filter, reporter, ...)
  35: test_check("purge")
  An irrecoverable exception occurred. R is aborting now ...