CRAN Package Check Results for Package FCO

Last updated on 2026-04-04 12:52:06 CEST.

Flavor	Version	T_install	T_check	T_total	Status
r-devel-linux-x86_64-debian-clang	2.0.2	5.91	227.44	233.35	OK
r-devel-linux-x86_64-debian-gcc	2.0.2	4.50	152.63	157.13	OK
r-devel-linux-x86_64-fedora-clang	2.0.2	12.00	347.05	359.05	OK
r-devel-linux-x86_64-fedora-gcc	2.0.2	11.00	346.90	357.90	OK
r-devel-macos-arm64	2.0.2	2.00	43.00	45.00	OK
r-devel-windows-x86_64	2.0.2	10.00	172.00	182.00	OK
r-patched-linux-x86_64	2.0.2	6.59	201.16	207.75	OK
r-release-linux-x86_64	2.0.2	5.71	198.90	204.61	OK
r-release-macos-arm64	2.0.2	1.00	28.00	29.00	ERROR
r-release-macos-x86_64	2.0.2	5.00	275.00	280.00	OK
r-release-windows-x86_64	2.0.2	9.00	176.00	185.00	OK
r-oldrel-macos-arm64	2.0.2	1.00	51.00	52.00	OK
r-oldrel-macos-x86_64	2.0.2	5.00	285.00	290.00	OK
r-oldrel-windows-x86_64	2.0.2	12.00	234.00	246.00	OK

Check Details

Version: 2.0.2
Check: examples
Result: ERROR Running examples in ‘FCO-Ex.R’ failed The error most likely occurred in: > ### Name: flex_co > ### Title: Obtain flexible cutoffs for one or two models > ### Aliases: flex_co > > ### ** Examples > > #Note: Demonstration only! Please use higher numbers of replications for your applications (>= 500). > #A single model to obtain fit indices for > mod <- " + F1 =~ Q5 + Q7 + Q8 + F2 =~ Q2 + Q4 + F3 =~ Q10 + Q11 + Q12 + Q13 + Q18 + Q19 + Q20 + Q21 + Q22 + F4 =~ Q1 + Q17 + F5 =~ Q6 + Q14 + Q15 + Q16 + " > fits.single <- gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE) Warning in pop_mod(mod = mod1, x = x, type = type, standardized = standardized) : All loadings are < 1. Consider revision of standardized. *** caught segfault *** address 0x110, cause 'invalid permissions' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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])) 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE) An irrecoverable exception occurred. R is aborting now ... 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE) An irrecoverable exception occurred. R is aborting now ... Warning in parallel::mclapply(1:rep, function(r) { : scheduled cores 1, 2 did not deliver results, all values of the jobs will be affected > flex_co(fits = fits.single, index = c("CFI", "SRMR")) Warning in flex_co(fits = fits.single, index = c("CFI", "SRMR")) : The number of replications is lower than the recommended minimum of 500. Consider with care. Error in fits.nna[[1]] : subscript out of bounds Calls: flex_co -> %in% Execution halted Flavor: r-release-macos-arm64

Version: 2.0.2
Check: tests
Result: ERROR Running ‘testthat.R’ [9s/6s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(FCO) > > test_check("FCO") This is lavaan 0.6-21 lavaan is FREE software! Please report any bugs. *** caught segfault *** address 0x110, cause 'invalid permissions' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 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))}) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) 26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } 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 : " 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) 29: 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: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) {15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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()) { 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], 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() { }) 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"))) {36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: Traceback: 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx, fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure, FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean, tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, ov.names.x = ov.names.x, lavpartable = lavpartable) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: 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")eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) .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))}) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: 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")lapply(seq_len(cores), inner.do) 24: 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) .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: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 27: eval(code, test_env) 28: withCallingHandlers({ 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: 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, tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L)30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ 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)) 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()}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) }}, 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) 23: lapply(seq_len(cores), inner.do) 24: 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)33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]])}, mc.cores = cores) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() } 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, }, 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, 31: tryCatchList(expr, classes, parentenv, handlers) 32: error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 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) 33: doWithOneRestart(return(expr), restart) 34: 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) withOneRestart(expr, restarts[[1L]]) 35: 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) {44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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 <<- TRUEtest_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) 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... Saving _problems/test-flex_co-29.R Saving _problems/test-flex_co-39.R Saving _problems/test-flex_co-52.R Saving _problems/test-flex_co-75.R *** caught segfault *** address 0x110, cause 'invalid permissions' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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") Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: if (is.na(w)) eval(sc, parent.frame()) 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: 7: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]])lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(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 (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " 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], msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") invisible(structure(msg, class = "try-error", condition = e))}) 20: .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))try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: parallel::mclapply(1:rep, function(r) {}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 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) 25: 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env)tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) 28: 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() if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { 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") snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: 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"))) {doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() } 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) }, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE24: invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 33: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env)doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } if (snapshot_skipped) { 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) skip("On CRAN")32: 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) { 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") 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, skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 36: test_code(code, parent.frame()) 37: test_that("Is the result fco of gen_fit a list of length rep?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_type(out$fco, "list") expect_equal(length(out$fco), 10) }) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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() }}, skip = handle_skip, warning = handle_warning, message = handle_message, }, 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), end_test = function() { }) 36: test_code(code, parent.frame()) }}, 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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() 37: test_that("Is the result fco of gen_fit a list of length rep?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_type(out$fco, "list") expect_equal(length(out$fco), 10) }) 38: eval(code, test_env) 39: }}, 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) 45: doWithOneRestart(return(expr), restart)eval(code, test_env) 40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN")46: } 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")withOneRestart(expr, restarts[[1L]])}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 41: doTryCatch(return(expr), name, parentenv, handler) 47: 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, 42: error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatchOne(expr, names, parentenv, handlers[[1L]])tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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.")) env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, }, 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is mod1 a model?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_s3_class(lavaanify(out$mod1), "data.frame")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is mod1 a model?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_s3_class(lavaanify(out$mod1), "data.frame")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is x a data.frame?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_s3_class(out$x, "data.frame")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is x a data.frame?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_s3_class(out$x, "data.frame")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is standard type NM?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_equal(out$type, "NM")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is standard type NM?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10) expect_equal(out$type, "NM")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB") 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is type HB taken over?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB") expect_equal(out$type, "HB")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB") 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is type HB taken over?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "HB") expect_equal(out$type, "HB")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** *** caught segfault *** address 0x110, cause 'invalid permissions' address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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], Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, 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))}) 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers)11: 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") 19: 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 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))}) 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")12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) .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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e)21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 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")24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM") 26: eval(code, test_env) 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))27: eval(code, test_env) 28: 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() }}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: }, 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) 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM") 26: eval(code, test_env) 27: eval(code, test_env) 28: 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {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 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) { invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]])32: 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()) { 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is type EM taken over?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM") expect_equal(out$type, "EM")}) 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) 33: doWithOneRestart(return(expr), restart) 38: eval(code, test_env) 39: eval(code, test_env) 40: withCallingHandlers({ 34: withOneRestart(expr, restarts[[1L]]) 35: 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) { 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 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) 41: doTryCatch(return(expr), name, parentenv, handler) 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is type EM taken over?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM") expect_equal(out$type, "EM")}) 38: eval(code, test_env) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 39: eval(code, test_env) 40: 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) {45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations 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) 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.")) } 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN")}, 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) } 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: 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() { }) tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 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) 58: 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) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is the result fco of gen_fit a list of matrices with two rows?", { out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) expect_type(out$fco, "list") expect_equal(nrow(do.call("rbind", out$fco)), 20) }) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is the result fco of gen_fit a list of matrices with two rows?", { out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) expect_type(out$fco, "list") expect_equal(nrow(do.call("rbind", out$fco)), 20) }) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... Saving _problems/test-gen_fit-99.R *** caught segfault *** address 0x110, cause 'invalid permissions' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) { Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, 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) WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean, 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, ov.names.x = ov.names.x, lavpartable = lavpartable) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: 31: doTryCatch(return(expr), name, parentenv, handler)tryCatchList(expr, classes, parentenv, handlers) 32: 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() 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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 ") }}, 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 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()) } invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 33: invisible(structure(msg, class = "try-error", condition = e))doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 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() { }) 36: test_code(code, parent.frame()) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 37: test_that("Is a second model accepted?", { out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) expect_s3_class(lavaanify(out$mod2), "data.frame")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 18: tryCatchList(expr, classes, parentenv, handlers)withCallingHandlers({ eval(code, test_env)19: tryCatch(expr, error = function(e) { new_expectations <- the$test_expectations > starting_expectations call <- conditionCall(e) if (snapshot_skipped) { if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: 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) 41: doTryCatch(return(expr), name, parentenv, handler)sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) { 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 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) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env)45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, new_expectations <- the$test_expectations > starting_expectations error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, 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_call = error_call) error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 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.")) }54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: test_files(test_dir = path, test_paths = test_paths, test_package = package, reporter = reporter, load_helpers = load_helpers, env = env, }, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 33: doWithOneRestart(return(expr), restart) load_package = load_package, parallel = parallel, shuffle = shuffle) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is a second model accepted?", { out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) expect_s3_class(lavaanify(out$mod2), "data.frame")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) { Traceback: 1: 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) lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean, skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() } sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, ov.names.x = ov.names.x, lavpartable = lavpartable) }, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: 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() { }) 36: test_code(code, parent.frame()) 37: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE)test_that("Is type EM used when DV is TRUE?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) expect_equal(out$type, "EM")}) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 38: eval(code, test_env) 39: eval(code, test_env)10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) 40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } 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)) 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) 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]))41: doTryCatch(return(expr), name, parentenv, handler) 42: if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers)}, 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") 19: 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)}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 45: doWithOneRestart(return(expr), restart) 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 ") }46: withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({ 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { 23: lapply(seq_len(cores), inner.do) 24: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: 26: eval(code, test_env) doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL 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.")) }}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, }, 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) 29: doTryCatch(return(expr), name, parentenv, handler) 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) 58: 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, 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ load_package = load_package, parallel = parallel, shuffle = shuffle) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is type EM used when DV is TRUE?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) expect_equal(out$type, "EM")}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is constraining used when DV is TRUE?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) expect_equal(out$merge.mod, FALSE)}) 38: *** caught segfault *** address 0x110, cause 'invalid permissions' eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is constraining used when DV is TRUE?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) expect_equal(out$merge.mod, FALSE)}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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, 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") ov.names.x = ov.names.x, lavpartable = lavpartable) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: 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)tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { 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 (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]] 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") 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"))) { .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)) cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 12: }) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf)generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: 14: FUN(X[[i]], ...) FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { 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") call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } 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") 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()) 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) } invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: 22: FUN(X[[i]], ...) sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: 23: lapply(seq_len(cores), inner.do) 24: parallel::mclapply(1:rep, function(r) { generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, lapply(seq_len(cores), inner.do) 24: parallel::mclapply(1:rep, function(r) { free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) 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: eval(code, test_env) 27: eval(code, test_env)25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) 26: eval(code, test_env) 28: 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() 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { 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_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) {32: 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) { 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), error = handle_fatal) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]])}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) } 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 33: }, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUEdoWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 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() { }) 36: test_code(code, parent.frame()) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env)37: test_that("Is dv.cutoff set to .9 when DV is TRUE?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) expect_equal(out$dv.cutoff, 0.9) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty()}) 38: 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) { 39: eval(code, test_env) 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() { })40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") 36: test_code(code, parent.frame()) 37: test_that("Is dv.cutoff set to .9 when DV is TRUE?", { } else if (!new_expectations && skip_on_empty) { skip_empty() } out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) expect_equal(out$dv.cutoff, 0.9)}) 38: 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 <<- TRUE39: eval(code, test_env) 40: invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {41: doTryCatch(return(expr), name, parentenv, handler) 42: skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) {tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) {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() 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."))41: doTryCatch(return(expr), name, parentenv, handler) 42: }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 45: doWithOneRestart(return(expr), restart) 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) {46: withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { } 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), error = handle_fatal) 45: }, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUEdoWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() error_call = error_call) 50: }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUEFUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, 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() { }) error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler)48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) error_call = error_call) 50: FUN(X[[i]], ...) 51: 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n")lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: NULL}) 56: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: 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) with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 58: 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, 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, load_package = load_package, parallel = parallel, shuffle = shuffle) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") error_call = error_call) 58: 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) 59: 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) 8: 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")doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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")10: tryCatchList(expr, classes, parentenv, handlers) 11: 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]] 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"))) { 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 ") cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: } 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))})lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE) 26: eval(code, test_env) 27: 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: eval(code, test_env)doTryCatch(return(expr), name, parentenv, handler) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: 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) tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is the first and second factor merged when DV is TRUE, merge.mod is TRUE and dv.factors is missing?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) merge.mod = TRUE)21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) expect_equal(grepl("F2 =~ ", out$mod2), FALSE) }) 38: eval(code, test_env) 39: eval(code, test_env) 40: withCallingHandlers({ 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE) 26: eval(code, test_env)eval(code, test_env) 27: eval(code, test_env) 28: 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) {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() 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, }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { error = handle_error, interrupt = handle_interrupt) skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]])tryCatch(withCallingHandlers({ 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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() 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.")) }}, 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) 33: }}, 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 52: doTryCatch(return(expr), name, parentenv, handler) 53: 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()tryCatchOne(expr, names, parentenv, handlers[[1L]]) } }, 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, 54: error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() {tryCatchList(expr, classes, parentenv, handlers) 55: }) 36: test_code(code, parent.frame()) 37: test_that("Is the first and second factor merged when DV is TRUE, merge.mod is TRUE and dv.factors is missing?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE)tryCatch(code, testthat_abort_reporter = function(cnd) { expect_equal(grepl("F2 =~ ", out$mod2), FALSE) }) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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 cat(conditionMessage(cnd), "\n") NULL}) 56: invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: else if (!new_expectations && skip_on_empty) {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) 58: skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) {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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) Traceback: 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx, 6: eval(sc, parent.frame()) fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure, slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) if (!is.null(call)) { 11: 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]] 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 ") } w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") 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: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, if (is.na(w)) std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 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())14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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)) std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : "lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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], 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE, dv.factors = c("F2", "F3")) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n")31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { .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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 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) 33: doWithOneRestart(return(expr), restart) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE, dv.factors = c("F2", "F3")) 26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }34: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]])withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations } 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, 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() { }) 36: test_code(code, parent.frame()) 37: test_that("Is merging used when DV is TRUE, merge.mod is TRUE and dv.factors is provided?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE, dv.factors = c("F2", "F3")) expect_equal(out$merge.mod, TRUE) error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 36: }) 38: test_code(code, parent.frame()) 37: test_that("Is merging used when DV is TRUE, merge.mod is TRUE and dv.factors is provided?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE, dv.factors = c("F2", "F3")) expect_equal(out$merge.mod, TRUE) })eval(code, test_env) 38: eval(code, test_env) 39: eval(code, test_env) 39: eval(code, test_env) 40: 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() } 40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN")}, expectation = handle_expectation, packageNotFoundError = function(e) { } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") skip(paste0("{", e$package, "} is not installed.")) }}, skip = handle_skip, warning = handle_warning, message = handle_message, }, snapshot_on_cran = function(cnd) { error = handle_error, interrupt = handle_interrupt) snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env)41: new_expectations <- the$test_expectations > starting_expectationsdoTryCatch(return(expr), name, parentenv, handler) if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() } 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {}, expectation = handle_expectation, packageNotFoundError = function(e) { skip("On CRAN") 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { } 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.")) 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: }}, 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) 45: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})doWithOneRestart(return(expr), restart) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 46: withOneRestart(expr, restarts[[1L]]) 58: 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n")60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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, 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) ov.names.x = ov.names.x, lavpartable = lavpartable) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 10: tryCatchList(expr, classes, parentenv, handlers) 11: std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: 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)tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")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 (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[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()) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...)14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]])16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) {18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) 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], 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") type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85) 23: lapply(seq_len(cores), inner.do) 24: parallel::mclapply(1:rep, function(r) { generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, 26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85) 26: eval(code, test_env) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { 27: eval(code, test_env) 28: skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) {withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) {}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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.")) } eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_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) skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]])}, 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) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 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."))35: 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() }}, 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() { }) }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { 36: test_code(code, parent.frame()) 37: test_that("Is dv.cutoff set to .85 taken over?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85) 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() { }) expect_equal(grepl("F2~~0.85*F1", out$mod2), FALSE)}) 38: eval(code, test_env) 36: test_code(code, parent.frame()) 37: test_that("Is dv.cutoff set to .85 taken over?", {39: eval(code, test_env) 40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.cutoff = 0.85) expect_equal(grepl("F2~~0.85*F1", out$mod2), FALSE)}) skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { 38: eval(code, test_env) 39: eval(code, test_env) if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { 40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 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") 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]])}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 41: doTryCatch(return(expr), name, parentenv, handler) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { 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() } 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)}, 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, 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 45: doWithOneRestart(return(expr), restart) 46: 47: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectationswithOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") 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.")) } } 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}, 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() { 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]])lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 54: tryCatchList(expr, classes, parentenv, handlers) 55: 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) {tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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, 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) 58: desc = desc, load_package = load_package, shuffle = shuffle, error_call = error_call) 58: 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)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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")An irrecoverable exception occurred. R is aborting now ... 60: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV, sample.cov = sample.cov, sample.mean = sample.mean, 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, ov.names.x = ov.names.x, lavpartable = lavpartable) 4: 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], lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 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"))) { 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 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]]15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[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 : " 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: 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) FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e)21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L)23: lapply(seq_len(cores), inner.do) 24: 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) prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE) 26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) 27: withCallingHandlers(expr, condition = function(cnd) { if (!is.null(matched) || !matches(cnd)) { return() } if (can_entrace(cnd)) { cnd <- cnd_entrace(cnd) } matched <<- cnd if (inherits(cnd, "message") || inherits(cnd, "warning")) { prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cnd_muffle(cnd) } else if (inherits(cnd, "error") || inherits(cnd, "skip")) { return_from(tl, cnd) }}) 28: cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)), ...) 29: quasi_capture(enquo(object), label, capture_matching_condition, matches = matcher) 30: expect_condition_matching_("warning", { {20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: object }}, regexp = regexp, class = class, ..., inherit = inherit, info = info, label = label) 31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)) sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 32: eval(code, test_env) 33: eval(code, test_env) 24: 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)34: 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()}, mc.cores = cores) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE) }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { 26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 35: 27: withCallingHandlers(expr, condition = function(cnd) { if (!is.null(matched) || !matches(cnd)) { return() } if (can_entrace(cnd)) {doTryCatch(return(expr), name, parentenv, handler) 36: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 37: cnd <- cnd_entrace(cnd) } matched <<- cnd if (inherits(cnd, "message") || inherits(cnd, "warning")) { cnd_muffle(cnd) }tryCatchList(expr, classes, parentenv, handlers) 38: tryCatch(withCallingHandlers({ else if (inherits(cnd, "error") || inherits(cnd, "skip")) { return_from(tl, cnd) }}) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") 28: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)), ...) } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { 29: quasi_capture(enquo(object), label, capture_matching_condition, matches = matcher) 30: if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")expect_condition_matching_("warning", { { object }}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 39: doWithOneRestart(return(expr), restart) }, regexp = regexp, class = class, ..., inherit = inherit, info = info, label = label) 31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)) 40: withOneRestart(expr, restarts[[1L]]) 41: 32: eval(code, test_env) 33: eval(code, test_env) 34: withCallingHandlers({ eval(code, test_env)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, 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) 35: doTryCatch(return(expr), name, parentenv, handler) 36: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 37: tryCatchList(expr, classes, parentenv, handlers) 38: tryCatch(withCallingHandlers({ error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 42: test_code(code, parent.frame()) 43: test_that("Is a warning produced when standardized is switched off?", { expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)) }) 44: eval(code, test_env) 45: eval(code, test_env) 46: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations 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) { 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) 39: doWithOneRestart(return(expr), restart) 40: withOneRestart(expr, restarts[[1L]]) 41: 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) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 47: doTryCatch(return(expr), name, parentenv, handler) 48: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 49: tryCatchList(expr, classes, parentenv, handlers) 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() { }) 50: 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."))42: test_code(code, parent.frame()) 43: test_that("Is a warning produced when standardized is switched off?", { expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)) }) 44: eval(code, test_env) 45: }}, 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) 51: doWithOneRestart(return(expr), restart) 52: withOneRestart(expr, restarts[[1L]]) 53: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env)eval(code, test_env) 46: 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()) { 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() { }) 54: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 55: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 56: FUN(X[[i]], ...) 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) 47: doTryCatch(return(expr), name, parentenv, handler) 48: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 57: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 58: doTryCatch(return(expr), name, parentenv, handler) 59: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 60: tryCatchList(expr, classes, parentenv, handlers)49: tryCatchList(expr, classes, parentenv, handlers) 50: 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) { 61: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 62: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 63: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 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) 51: doWithOneRestart(return(expr), restart) 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) 64: 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) 65: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 52: withOneRestart(expr, restarts[[1L]]) 53: 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) {66: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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() { }) 54: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 55: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 56: FUN(X[[i]], ...) 57: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 58: doTryCatch(return(expr), name, parentenv, handler) 59: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 60: tryCatchList(expr, classes, parentenv, handlers) 61: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 62: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 63: 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) 64: 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) 65: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 66: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: 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) }) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, assume.mvn = FALSE) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: 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) }) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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.")) } Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) }, 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) 29: doTryCatch(return(expr), name, parentenv, handler) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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()) { 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { 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) 33: doWithOneRestart(return(expr), restart) 34: 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) withOneRestart(expr, restarts[[1L]]) 35: 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) { 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 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() { }) 36: test_code(code, parent.frame())13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: 37: 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)}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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()doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) }}, 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) 41: doTryCatch(return(expr), name, parentenv, handler) 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 ")42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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() } 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = 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) 45: doWithOneRestart(return(expr), restart) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: parallel::mclapply(1:rep, function(r) { generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, free1 = free, s = s, k = k, nf = nf)}, mc.cores = cores) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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)30: tryCatchOne(expr, names, parentenv, handlers[[1L]])58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code, parent.frame()) 37: 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)}) 38: eval(code, test_env) 39: eval(code, test_env) 40: 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: Traceback: 1: lav_samplestats_Gamma(Y = Y, x.idx = x.idx[[g]], cluster.idx = cluster.idx, generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: fixed.x = fixed.x, conditional.x = conditional.x, meanstructure = meanstructure, 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, ": ") slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one, 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") unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) .Internal(seterrmessage(msg[1L])) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) if (!silent && isTRUE(getOption("show.error.messages"))) { 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 20: 11: 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 <- 75Ltry(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 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 ") } 23: lapply(seq_len(cores), inner.do) 24: 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) 25: 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: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111)14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]])26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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 else if (!new_expectations && skip_on_empty) { 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()) } skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: 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, FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, seed = 1111) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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()) {29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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() 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) }}, 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { 35: 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.")) } skip("On CRAN")}, snapshot_on_cran = function(cnd) { } 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 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() { 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() { }) 36: test_code(code, parent.frame()) 37: 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)}) 38: eval(code, test_env) 39: eval(code, test_env) 40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }) 36: test_code(code, parent.frame()) } 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) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 37: 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)}) 38: eval(code, test_env) 39: 44: eval(code, test_env) 40: withCallingHandlers({ eval(code, test_env)tryCatch(withCallingHandlers({ 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) 41: doTryCatch(return(expr), name, parentenv, handler) 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) {42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env) 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) 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 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, 47: 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() { error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 45: doWithOneRestart(return(expr), restart) }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: 46: withOneRestart(expr, restarts[[1L]])tryCatch(code, testthat_abort_reporter = function(cnd) { 47: 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() { }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) cat(conditionMessage(cnd), "\n")49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) NULL}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 55: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULLtest_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)}) 56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: 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) 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 58: 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: 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' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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], Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations11: 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) 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 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) invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...)tryCatchList(expr, classes, parentenv, handlers) 32: 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) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN")tryCatchList(expr, classes, parentenv, handlers) 19: 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, ": ") } 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, 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))}) error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) {20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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.")) } cat(conditionMessage(cnd), "\n")}, 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) 29: doTryCatch(return(expr), name, parentenv, handler) NULL}) 44: 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart)with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: 34: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4", "F5"), dv.cutoff = 0.9) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4", "F5"), dv.cutoff = 0.9) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: 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() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: 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_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, Traceback: 1: lav_samplestats_Gamma(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 = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, 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, 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) ov.names.x = ov.names.x, lavpartable = lavpartable) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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 ") } 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) 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()) 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))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers)15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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 19: 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") 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 ") } .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))}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 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: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 24: 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) 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) 25: gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4", "F5"), merge.mod = TRUE) 26: eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, dv.factors = c("F4", "F5"), merge.mod = TRUE) 26: eval(code, test_env) 27: eval(code, test_env) 28: 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."))withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } }}, 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) 29: doTryCatch(return(expr), name, parentenv, handler) 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers)30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) { 32: 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") 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) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({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) { 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) { 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, 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() { }) error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 37: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 38: FUN(X[[i]], ...) 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) error_call = error_call) 38: FUN(X[[i]], ...) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: 39: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]])tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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) 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) 46: 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: 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 14 | WARN 25 | SKIP 0 | PASS 55 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-flex_co.R:24:13'): Is the function warning because of low replications? ── <subscriptOutOfBoundsError/error/condition> Error in `fits.nna[[1]]`: subscript out of bounds Backtrace: ▆ 1. ├─testthat::expect_warning(...) at test-flex_co.R:24:13 2. │ └─testthat:::expect_condition_matching_(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. └─FCO::flex_co(...) 8. └─index %in% names(fits.nna[[1]]) ── Error ('test-flex_co.R:34:13'): Is the function accepting multiple indices? ── <subscriptOutOfBoundsError/error/condition> Error in `fits.nna[[1]]`: subscript out of bounds Backtrace: ▆ 1. ├─base::suppressWarnings(...) at test-flex_co.R:34:13 2. │ └─base::withCallingHandlers(...) 3. └─FCO::flex_co(...) 4. └─index %in% names(fits.nna[[1]]) ── Error ('test-flex_co.R:47:13'): Is the function reversing quantile definition based on gof? ── <subscriptOutOfBoundsError/error/condition> Error in `fits.nna[[1]]`: subscript out of bounds Backtrace: ▆ 1. ├─base::suppressWarnings(...) at test-flex_co.R:47:13 2. │ └─base::withCallingHandlers(...) 3. └─FCO::flex_co(...) 4. └─index %in% names(fits.nna[[1]]) ── Error ('test-flex_co.R:70:13'): Is the function returning values for two models? ── <subscriptOutOfBoundsError/error/condition> Error in `fits.nna[[1]]`: subscript out of bounds Backtrace: ▆ 1. ├─base::suppressWarnings(...) at test-flex_co.R:70:13 2. │ └─base::withCallingHandlers(...) 3. └─FCO::flex_co(...) 4. └─index %in% names(fits.nna[[1]]) ── Failure ('test-gen_fit.R:99:13'): Is the result fco of gen_fit a list of matrices with two rows? ── Expected `nrow(do.call("rbind", out$fco))` to equal 20. Differences: `actual` is NULL `expected` is a double vector (20) ── 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 14 | WARN 25 | SKIP 0 | PASS 55 ] Error: ! Test failures. Execution halted Flavor: r-release-macos-arm64