Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [3s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(tehtuner)
  > 
  > test_check("tehtuner")
  
   *** caught segfault ***
  address (nil), cause 'memory not mapped'
  
  Traceback:
   1: rpart::rpart(z ~ ., data = subset(data, select = keep_x_fit),     method = "anova", cp = theta)
   2: vt2(z, data, Trt = Trt, Y = Y, theta = theta$theta)
   3: tunevt(data = dat, Y = "Outcome", Trt = "A", step1 = "mars",     step2 = "rtree", alpha0 = 0.95, p_reps = 1)
   4: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   5: withCallingHandlers(expr, error = function(cnd) {    {        .__handler_frame__. <- TRUE        .__setup_frame__. <- frame    }    out <- handlers[[1L]](cnd)    if (!inherits(out, "rlang_zap"))         throw(out)})
   6: doTryCatch(return(expr), name, parentenv, handler)
   7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   8: tryCatchList(expr, classes, parentenv, handlers)
   9: tryCatch(withCallingHandlers(expr, error = function(cnd) {    {        .__handler_frame__. <- TRUE        .__setup_frame__. <- frame    }    out <- handlers[[1L]](cnd)    if (!inherits(out, "rlang_zap"))         throw(out)}), stackOverflowError = handlers[[1L]])
  10: try_fetch(code, `:=`(!!base_class, function(cnd) {    if (!matcher(cnd)) {        return(zap())    }    expected <- paste0("Expected ", quo_label(enquo(object)),         " to run without any ", base_class, "s", if (!is.null(class))             paste0(" of class '", class, "'"), if (!is.null(regexp))             paste0(" matching pattern '", regexp, "'"), ".")    actual <- paste0("Actually got a <", class(cnd)[[1]], ">:\n",         indent_lines(rlang::cnd_message(cnd, prefix = TRUE)))    message <- format_error_bullets(c(expected, i = actual))    fail(message, trace_env = error_call)}))
  11: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  12: quasi_capture(enquo(object), NULL, capture)
  13: expect_no_("error", {    {        object    }}, regexp = message, class = class)
  14: expect_no_error(tunevt(data = dat, Y = "Outcome", Trt = "A",     step1 = "mars", step2 = "rtree", alpha0 = 0.95, p_reps = 1))
  15: eval(code, test_env)
  16: eval(code, test_env)
  17: 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)
  18: doTryCatch(return(expr), name, parentenv, handler)
  19: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  20: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  21: doTryCatch(return(expr), name, parentenv, handler)
  22: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  23: tryCatchList(expr, classes, parentenv, handlers)
  24: 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) {    })
  25: test_code(desc, code, env = parent.frame(), reporter = reporter)
  26: test_that("Identifies Trt and Y", {    dat <- tehtuner_example[c(1:10, 101:110), ]    names(dat)[names(dat) == "Trt"] <- "A"    names(dat)[names(dat) == "Y"] <- "Outcome"    expect_no_error(tunevt(data = dat, Y = "Outcome", Trt = "A",         step1 = "mars", step2 = "rtree", alpha0 = 0.95, p_reps = 1))})
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: 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)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  33: doTryCatch(return(expr), name, parentenv, handler)
  34: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  35: tryCatchList(expr, classes, parentenv, handlers)
  36: 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) {    })
  37: test_code(NULL, exprs, env)
  38: source_file(path, child_env(env), wrap = wrap)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  45: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  46: test_files_serial(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)
  47: 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)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("tehtuner")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault