Running ‘testthat.R’ [20s/35s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(compboost)
  > 
  > test_check("compboost")
  
   *** caught segfault ***
  address 0, cause 'memory not mapped'
  
  Traceback:
   1: new_CppObject_xp(fields$.module, fields$.pointer, ...)
   2: Rcpp::cpp_object_initializer(.self, .refClassDef, ...)
   3: .Object$initialize(...)
   4: initialize(value, ...)
   5: initialize(value, ...)
   6: methods::new(def, ...)
   7: (new("refMethodDef", .Data = function (...) {    methods::new(def, ...)}, mayCall = c("methods", "new"), name = "new", refClassName = "refGeneratorSlot",     superClassMethod = ""))(source = new("Rcpp_InMemoryData",     .xData = <environment>), target = new("Rcpp_InMemoryData",     .xData = <environment>), id = "custom", instantiate.ptr = <pointer: c0adc40>,     train.ptr = <pointer: c0adbe0>, predict.ptr = <pointer: c1c6f88>)
   8: do.call(bl.factory$new, par.set)
   9: private$addSingleNumericBl(data.columns, feature, id, id.fac,     bl.factory, data.source, data.target, ...)
  10: cboost$addBaselearner("hp", "custom", BaselearnerCustomCpp, instantiate.ptr = dataFunSetter(),     train.ptr = trainFunSetter(), predict.ptr = predictFunSetter())
  11: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  12: withVisible(code)
  13: withCallingHandlers(withVisible(code), warning = handle_warning,     message = handle_message)
  14: force(code)
  15: withr::with_output_sink(temp, withCallingHandlers(withVisible(code),     warning = handle_warning, message = handle_message))
  16: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  17: quasi_capture(enquo(object), NULL, evaluate_promise)
  18: expect_silent({    cboost$addBaselearner("hp", "custom", BaselearnerCustomCpp,         instantiate.ptr = dataFunSetter(), train.ptr = trainFunSetter(),         predict.ptr = predictFunSetter())})
  19: eval(code, test_env)
  20: eval(code, test_env)
  21: 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)
  22: doTryCatch(return(expr), name, parentenv, handler)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  25: doTryCatch(return(expr), name, parentenv, handler)
  26: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  27: tryCatchList(expr, classes, parentenv, handlers)
  28: 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) {    })
  29: test_code(desc, code, env = parent.frame(), reporter = reporter)
  30: test_that("custom cpp base-learner works through api", {    expect_silent({        cboost = Compboost$new(mtcars, "mpg", loss = LossQuadratic$new())    })    expect_silent({        Rcpp::sourceCpp(code = getCustomCppExample(silent = TRUE))    })    expect_silent({        cboost$addBaselearner("hp", "custom", BaselearnerCustomCpp,             instantiate.ptr = dataFunSetter(), train.ptr = trainFunSetter(),             predict.ptr = predictFunSetter())    })    expect_output(cboost$train(100))    expect_silent({        cboost1 = Compboost$new(mtcars, "mpg", loss = LossQuadratic$new())        cboost1$addBaselearner("hp", "linear", BaselearnerPolynomial,             degree = 1, intercept = FALSE)    })    expect_output(cboost1$train(100, trace = 10))    expect_equivalent(cboost$getEstimatedCoef(), cboost1$getEstimatedCoef())    expect_equal(cboost$predict(), cboost1$predict())    expect_equal(cboost$predict(), cboost$predict(mtcars))})
  31: eval(code, test_env)
  32: eval(code, test_env)
  33: 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)
  34: doTryCatch(return(expr), name, parentenv, handler)
  35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  36: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  37: doTryCatch(return(expr), name, parentenv, handler)
  38: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  39: tryCatchList(expr, classes, parentenv, handlers)
  40: 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) {    })
  41: test_code(NULL, exprs, env)
  42: source_file(path, child_env(env), wrap = wrap)
  43: FUN(X[[i]], ...)
  44: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  45: force(code)
  46: doWithOneRestart(return(expr), restart)
  47: withOneRestart(expr, restarts[[1L]])
  48: withRestarts(testthat_abort_reporter = function() NULL, force(code))
  49: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  50: 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)
  51: 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)
  52: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  53: test_check("compboost")
  An irrecoverable exception occurred. R is aborting now ...