Running ‘testthat.R’ [3s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rvinecopulib)
  > 
  > test_check("rvinecopulib")
  
   *** caught segfault ***
  address fcb34e1a, cause 'memory not mapped'
  
   *** caught segfault ***
  address fcb34e1a, cause 'memory not mapped'
  
  Traceback:
   1: .Call(`_rvinecopulib_vinecop_select_cpp`, data, matrix, family_set,     par_method, nonpar_method, mult, truncation_level, tree_criterion,     threshold, selection_criterion, select_truncation_level,     select_threshold, preselect_families, show_trace, num_threads)
   2: vinecop_select_cpp(data = data, matrix = matrix, family_set = family_set,     par_method = par_method, nonpar_method = nonpar_method, mult = mult,     selection_criterion = selcrit, preselect_families = presel,     truncation_level = ifelse(is.finite(trunc_lvl), trunc_lvl,         .Machine$integer.max), tree_criterion = tree_crit, threshold = threshold,     select_truncation_level = is.na(trunc_lvl), select_threshold = is.na(threshold),     show_trace = show_trace, num_threads = cores)
   3: vinecop(u, cores = 2)
   4: withVisible(code)
   5: withCallingHandlers(withVisible(code), warning = handle_warning,     message = handle_message)
   6: with_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,     message = handle_message))
   7: evaluate_promise(object)
   8: expect_silent(fit <- vinecop(u, cores = 2))
   9: eval(code, test_env)
  10: eval(code, test_env)
  11: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  12: doTryCatch(return(expr), name, parentenv, handler)
  13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  14: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  15: doTryCatch(return(expr), name, parentenv, handler)
  16: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: 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) {})
  19: test_code(desc, code, env = parent.frame())
  20: test_that("runs in parallel", {    expect_silent(fit <- vinecop(u, cores = 2))})
  21: eval(exprs, env)
  22: eval(exprs, env)
  23: source_file(path, new.env(parent = env), chdir = TRUE)
  24: force(code)
  25: 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()    })
  26: FUN(X[[i]], ...)
  27: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  28: force(code)
  29: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  30: test_files(paths, reporter = reporter, env = env, ...)
  31: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  32: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  33: run_tests(package, test_path, filter, reporter, ...)
  34: test_check("rvinecopulib")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: .Call(`_rvinecopulib_vinecop_select_cpp`, data, matrix, family_set,     par_method, nonpar_method, mult, truncation_level, tree_criterion,     threshold, selection_criterion, select_truncation_level,     select_threshold, preselect_families, show_trace, num_threads)
   2: vinecop_select_cpp(data = data, matrix = matrix, family_set = family_set,     par_method = par_method, nonpar_method = nonpar_method, mult = mult,     selection_criterion = selcrit, preselect_families = presel,     truncation_level = ifelse(is.finite(trunc_lvl), trunc_lvl,         .Machine$integer.max), tree_criterion = tree_crit, threshold = threshold,     select_truncation_level = is.na(trunc_lvl), select_threshold = is.na(threshold),     show_trace = show_trace, num_threads = cores)
   3: vinecop(u, cores = 2)
   4: withVisible(code)
   5: withCallingHandlers(withVisible(code), warning = handle_warning,     message = handle_message)
   6: with_sink(temp, withCallingHandlers(withVisible(code), warning = handle_warning,     message = handle_message))
   7: evaluate_promise(object)
   8: expect_silent(fit <- vinecop(u, cores = 2))
   9: eval(code, test_env)
  10: eval(code, test_env)
  11: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  12: doTryCatch(return(expr), name, parentenv, handler)
  13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  14: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  15: doTryCatch(return(expr), name, parentenv, handler)
  16: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: 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) {})
  19: test_code(desc, code, env = parent.frame())
  20: test_that("runs in parallel", {    expect_silent(fit <- vinecop(u, cores = 2))})
  21: eval(exprs, env)
  22: eval(exprs, env)
  23: source_file(path, new.env(parent = env), chdir = TRUE)
  24: force(code)
  25: 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()    })
  26: FUN(X[[i]], ...)
  27: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  28: force(code)
  29: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  30: test_files(paths, reporter = reporter, env = env, ...)
  31: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  32: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  33: run_tests(package, test_path, filter, reporter, ...)
  34: test_check("rvinecopulib")
  An irrecoverable exception occurred. R is aborting now ...