Running ‘testthat.R’ [26s/13s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(FCO)
  > 
  > test_check("FCO")
  This is lavaan 0.7-2
  lavaan is FREE software! Please report any bugs.
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  Merging is selected as the discriminant validity testing option given the provided arguments.
  Merging is selected as the discriminant validity testing option given the provided arguments.
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code, parent.frame())
  38: test_that("Is kurtosis and skewness unequal to 1 when assume.mvn is FALSE?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)        expect_gt(FCO:::mardia(out$x)[1], 1)        expect_gt(FCO:::mardia(out$x)[1], 1)    })
  39: eval(code, test_env)
  40: eval(code, test_env)
  41: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  42: doTryCatch(return(expr), name, parentenv, handler)
  43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  44: tryCatchList(expr, classes, parentenv, handlers)
  45: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  46: doWithOneRestart(return(expr), restart)
  47: withOneRestart(expr, restarts[[1L]])
  48: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  49: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  50: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  51: FUN(X[[i]], ...)
  52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  57: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  58: 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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  59: 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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  60: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  61: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code, parent.frame())
  38: test_that("Is kurtosis and skewness unequal to 1 when assume.mvn is FALSE?",     {        out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE)        expect_gt(FCO:::mardia(out$x)[1], 1)        expect_gt(FCO:::mardia(out$x)[1], 1)    })
  39: eval(code, test_env)
  40: eval(code, test_env)
  41: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  42: doTryCatch(return(expr), name, parentenv, handler)
  43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  44: tryCatchList(expr, classes, parentenv, handlers)
  45: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  46: doWithOneRestart(return(expr), restart)
  47: withOneRestart(expr, restarts[[1L]])
  48: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  49: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  50: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  51: FUN(X[[i]], ...)
  52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  57: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  58: 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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  59: 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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  60: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  61: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code, parent.frame())
  38: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  39: eval(code, test_env)
  40: eval(code, test_env)
  41: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  42: doTryCatch(return(expr), name, parentenv, handler)
  43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  44: tryCatchList(expr, classes, parentenv, handlers)
  45: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  46: doWithOneRestart(return(expr), restart)
  47: withOneRestart(expr, restarts[[1L]])
  48: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  49: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  50: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  51: FUN(X[[i]], ...)
  52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  57: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  58: 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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  59: 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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  60: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  61: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code, parent.frame())
  38: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  39: eval(code, test_env)
  40: eval(code, test_env)
  41: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  42: doTryCatch(return(expr), name, parentenv, handler)
  43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  44: tryCatchList(expr, classes, parentenv, handlers)
  45: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  46: doWithOneRestart(return(expr), restart)
  47: withOneRestart(expr, restarts[[1L]])
  48: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  49: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  50: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  51: FUN(X[[i]], ...)
  52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  57: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  58: 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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  59: 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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  60: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  61: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov) 9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {
   6: eval(sc, parent.frame())
   7:         if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10:             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
      else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch))) 
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)            call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG) 
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17:             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13:     call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w)) 
  15: FUN(X[[i]], ...)
  16:             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
      else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25:         prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG) parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)
  27: eval(code, test_env)            prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
      if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  }, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)
  27: eval(code, test_env)
  28: eval(code, test_env)30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34:     invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code, parent.frame())        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  38: test_that("Is the seed set properly?", {    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
  
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations39: eval(code, test_env)
  40: eval(code, test_env)
  41: withCallingHandlers({    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal), }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  42: doTryCatch(return(expr), name, parentenv, handler)
  43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  44: tryCatchList(expr, classes, parentenv, handlers)
  45:     end_test = function() {    })
  37: test_code(code, parent.frame())
  38: test_that("Is the seed set properly?", {tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    out1 <- gen_fit(mod1 = mod, x = bb1992, rep = 10)    out2 <- gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)    expect_equal(out1$seed, out2$seed)})
      }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {39: eval(code, test_env)
  40: eval(code, test_env)        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  
  41: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }46: doWithOneRestart(return(expr), restart)
  47: withOneRestart(expr, restarts[[1L]])
  48: withRestarts(tryCatch(withCallingHandlers({    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 42: doTryCatch(return(expr), name, parentenv, handler)
  43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  44:     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  49: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  tryCatchList(expr, classes, parentenv, handlers)
  45: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {50: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  51: FUN(X[[i]], ...)
  52:         skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: tryCatchOne(expr, names, parentenv, handlers[[1L]])    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  46: doWithOneRestart(return(expr), restart)
  47: withOneRestart(expr, restarts[[1L]])
  48: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: tryCatch(code, testthat_abort_reporter = function(cnd) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    cat(conditionMessage(cnd), "\n")    NULL})
  57: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
      invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  49: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  58: 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,     desc = desc, load_package = load_package, shuffle = shuffle, 50: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  51:     error_call = error_call)
  59: 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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  FUN(X[[i]], ...)
  52: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: 60: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  61: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  tryCatchOne(expr, names, parentenv, handlers[[1L]])
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  57: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  58: 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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  59: 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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  60: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  61: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2:  3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
  lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4:  6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")    std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: 11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch))) lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])            call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]
  11: tryCatchList(expr, classes, parentenv, handlers)
  12:         w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG) tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)            prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)         .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
              prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
      }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: 14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))         LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")            call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23:     msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22:     generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  27: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
      new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()26: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10)
  27: eval(code, test_env)
      }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35:     eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }    error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: }, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
      if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  41: }, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUEdoTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
      invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||% 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, desc = desc, shuffle = shuffle, error_call = error_call))
  46:     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  47: test_files(test_dir = path, test_paths = test_paths, test_package = package, 
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  41: doTryCatch(return(expr), name, parentenv, handler)
      reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  42: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: tryCatch(code, testthat_abort_reporter = function(cnd) {49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
      cat(conditionMessage(cnd), "\n")    NULL})
  45: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-recommend-34.R
  Saving _problems/test-recommend-56.R
  Saving _problems/test-recommend-69.R
  Saving _problems/test-recommend-94.R
  Saving _problems/test-recommend-112.R
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,     free1 = free, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod,         free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Constraining is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), dv.cutoff = 0.9)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), dv.cutoff = 0.9)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Merging is selected as the discriminant validity testing option given the provided arguments.
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
   *** caught segfault ***
  address 0x110, cause 'invalid permissions'
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), merge.mod = TRUE)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  
  Traceback:
   1: lav_samp_gamma_meat(zc, cluster_idx = cluster_idx, n = n)
   2: lav_samp_gamma(m_y = y, x_idx = x_idx[[g]], cluster_idx = cluster_idx,     fixed_x = fixed_x, conditional_x = conditional_x, meanstructure = meanstructure,     slopestructure = conditional_x, gamma_n_minus_one = gamma_recipe$n.minus.one,     unbiased = gamma_recipe$unbiased, mplus_wls = FALSE, wt = wt[[g]],     sampling_weights_type = swt_type)
   3: lav_samp_from_data(lavdata = lavdata, lavoptions = lavoptions,     wls_v = wls_v, nacov = nacov)
   4: lav_step05_samp(slot_sample_stats = slot_sample_stats, lavdata = lavdata,     lavoptions = lavoptions, wls_v = wls_v, nacov = nacov, sample_cov = sample_cov,     sample_mean = sample_mean, sample_th = sample_th, sample_nobs = sample_nobs,     ov_names = ov_names, ov_names_x = ov_names_x, lavpartable = lavpartable)
   5: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE, model.type = "cfa", cmd = "cfa")
   6: eval(sc, parent.frame())
   7: eval(sc, parent.frame())
   8: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  13: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE,     std.lv = TRUE, warn = FALSE), silent = TRUE)
  14: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,     free1 = free1, free2 = free2, s = s, k = k, nf = nf)
  15: FUN(X[[i]], ...)
  16: lapply(X = S, FUN = FUN, ...)
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  21: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
  22: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
  23: FUN(X[[i]], ...)
  24: lapply(seq_len(cores), inner.do)
  25: parallel::mclapply(1:rep, function(r) {    generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1,         free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores)
  26: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4",     "F5"), merge.mod = TRUE)
  27: eval(code, test_env)
  28: eval(code, test_env)
  29: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  34: doWithOneRestart(return(expr), restart)
  35: withOneRestart(expr, restarts[[1L]])
  36: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  37: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  38: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  39: FUN(X[[i]], ...)
  40: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  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, desc = desc, shuffle = shuffle, error_call = error_call))
  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,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  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,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  48: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  49: test_check("FCO")
  An irrecoverable exception occurred. R is aborting now ...
  Saving _problems/test-recommend_dv-43.R
  Saving _problems/test-recommend_dv-51.R
  Saving _problems/test-recommend_dv-59.R
  Saving _problems/test-recommend_dv-68.R
  [ FAIL 9 | WARN 8 | SKIP 0 | PASS 65 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-recommend.R:29:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #1 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:29:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:51:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #3 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:51:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:62:13'): Are the settings for purpose and focus following the recommendations by Mai et al.? #4 ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:62:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:86:13'): Is the result rounded properly? ───────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:86:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend.R:104:13'): Are the indices properly used when override is TRUE? ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `fits.nna[[1]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend.R:104:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend(...)
   4.   ├─base::suppressWarnings(lapply(ap, flex_co, fits = fits, index = index))
   5.   │ └─base::withCallingHandlers(...)
   6.   └─base::lapply(ap, flex_co, fits = fits, index = index)
   7.     └─FCO (local) FUN(X[[i]], ...)
   8.       └─index %in% names(fits.nna[[1]])
  ── Error ('test-recommend_dv.R:40:13'): Are multiple fit indices supported? ────
  Error in `recommend_dv(fits = fits.dv.merge, index = c("CFI", "SRMR", "GFI"))`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test-recommend_dv.R:40:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(...)
  ── Error ('test-recommend_dv.R:49:13'): Is the proper dv technique used? merging? ──
  Error in `recommend_dv(fits = fits.dv.merge, )`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.merge, )) at test-recommend_dv.R:49:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.merge, )
  ── Error ('test-recommend_dv.R:57:13'): Is the proper dv technique used? constraining? ──
  Error in `recommend_dv(fits = fits.dv.con, )`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.con, )) at test-recommend_dv.R:57:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.con, )
  ── Error ('test-recommend_dv.R:65:13'): Is the result rounded properly? ────────
  Error in `recommend_dv(fits = fits.dv.con, digits = 5)`: Only dual model fit indices are supported so far for this function. Please revise or use flex_co.
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(recommend_dv(fits = fits.dv.con, digits = 5)) at test-recommend_dv.R:65:13
   2. │ └─base::withCallingHandlers(...)
   3. └─FCO::recommend_dv(fits = fits.dv.con, digits = 5)
  
  [ FAIL 9 | WARN 8 | SKIP 0 | PASS 65 ]
  Error:
  ! Test failures.
  Execution halted