Running ‘testthat.R’ [54s/81s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # Had the same issue as in this thread: https://github.com/hadley/testthat/issues/86
  > Sys.setenv("R_TESTS" = "")
  > 
  > options(deparse.max.lines = 5)
  > 
  > testthat::test_check("dynamichazard", reporter = "summary")
  Loading required package: dynamichazard
  Loading required package: survival
  Tracing function "expect_known_value" in package "testthat"
  Tracing function "expect_known_output" in package "testthat"
  Loading required package: DBI
  Running tests for GMA: ..................
  Testing LAPACK wrapper functions: ..........................................
  Running test_PF: ........................................................................................................................................................................................................SS...SSSSSSS..S1SS..S
  Testing SMA: ................................
  Testing UKF: .........................
  Testing bigglm_wrapper: ..........
  Testing boot: ...S..................................................................................................................................................................................................................................................................................................................................................................................................................
  Testing cpp sampling functions: ..................................................................................................................................................................................................................................................................................................................................................................................................................S.............................................................S....
  Running test_cpp_utils.R:: .S............
  Testing ddhazard w/ generic things and w/ the the EKF : .....................S................
  Testing design_mat_and_risk_obj: .................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................
   *** caught segfault ***
  address 2d6e2917, cause 'memory not mapped'
  
  Traceback:
   1: c$message
   2: conditionMessage.condition(cond)
   3: conditionMessage(cond)
   4: signalCondition(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(identical(as.vector(act$val), TRUE), sprintf("%s isn't true.",     act$lab), info = info)
   9: expect_true(setequal(p1$risk_sets[[i]], p2$risk_sets[[i]]))
  10: eval(code, test_env)
  11: eval(code, test_env)
  12: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }  ...
  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)    if (!handled && !is.null(test)) {        skip_empty()    }  ...
  20: test_code(desc, code, env = parent.frame())
  21: test_that("Parallel and non-parallel version gives the same for get_risk_set",     {        set.seed(4296745)        s <- test_sim_func_logit(n_series = 5000, n_vars = 1,             beta_start = 1, intercept_start = -5, sds = c(sqrt(0.1),   ...
  22: eval(code, test_env)
  23: eval(code, test_env)
  24: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }  ...
  25: doTryCatch(return(expr), name, parentenv, handler)
  26: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  27: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  28: doTryCatch(return(expr), name, parentenv, handler)
  29: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  30: tryCatchList(expr, classes, parentenv, handlers)
  31: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }  ...
  32: test_code(NULL, exprs, env)
  33: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
  34: force(code)
  35: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE,             wrap = wrap)  ...
  36: FUN(X[[i]], ...)
  37: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
  38: force(code)
  39: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
  40: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  41: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap)
  42: test_package_dir(package = package, test_path = test_path, filter = filter,     reporter = reporter, ..., stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  43: testthat::test_check("dynamichazard", reporter = "summary")
  An irrecoverable exception occurred. R is aborting now ...
  Warning: stack imbalance in 'if', 78 then 77
  .Warning: stack imbalance in '{', 74 then 73
  Warning: stack imbalance in 'lapply', 64 then 63
  Warning: stack imbalance in '{', 59 then 58