Check results for 'FCO'

using R version 4.5.2 Patched (2026-01-31 r89382)
using platform: aarch64-apple-darwin20
R was compiled by Apple clang version 16.0.0 (clang-1600.0.26.6) GNU Fortran (GCC) 14.2.0
running under: macOS Ventura 13.7.8
using session charset: UTF-8
checking for file ‘FCO/DESCRIPTION’ ... OK
this is package ‘FCO’ version ‘2.0.2’
package encoding: UTF-8
checking package namespace information ... OK
checking package dependencies ... OK
checking if this is a source package ... OK
checking if there is a namespace ... OK
checking for executable files ... OK
checking for hidden files and directories ... OK
checking for portable file names ... OK
checking for sufficient/correct file permissions ... OK
checking whether package ‘FCO’ can be installed ... [1s/1s] OK See the install log for details.
checking installed package size ... OK
checking package directory ... OK
checking ‘build’ directory ... OK
checking DESCRIPTION meta-information ... OK
checking top-level files ... OK
checking for left-over files ... OK
checking index information ... OK
checking package subdirectories ... OK
checking code files for non-ASCII characters ... OK
checking R files for syntax errors ... OK
checking whether the package can be loaded ... [0s/0s] OK
checking whether the package can be loaded with stated dependencies ... [0s/0s] OK
checking whether the package can be unloaded cleanly ... [0s/0s] OK
checking whether the namespace can be loaded with stated dependencies ... [0s/0s] OK
checking whether the namespace can be unloaded cleanly ... [0s/0s] OK
checking loading without being on the library search path ... [0s/0s] OK
checking dependencies in R code ... OK
checking S3 generic/method consistency ... OK
checking replacement functions ... OK
checking foreign function calls ... OK
checking R code for possible problems ... [2s/2s] OK
checking Rd files ... [0s/0s] OK
checking Rd metadata ... OK
checking Rd cross-references ... OK
checking for missing documentation entries ... OK
checking for code/documentation mismatches ... OK
checking Rd \usage sections ... OK
checking Rd contents ... OK
checking for unstated dependencies in examples ... OK
checking contents of ‘data’ directory ... OK
checking data for non-ASCII characters ... [0s/0s] OK
checking LazyData ... OK
checking data for ASCII and uncompressed saves ... OK
checking installed files from ‘inst/doc’ ... OK
checking files in ‘vignettes’ ... OK
checking examples ... [1s/0s] 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, 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) 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, 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") 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: 5: eval(sc, parent.frame()) 6: eval(sc, parent.frame())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 ") } 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: 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))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: }) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: 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]], ...) 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], 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) type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L]))19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 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") 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 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) 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, An irrecoverable exception occurred. R is aborting now ... 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
checking for unstated dependencies in ‘tests’ ... OK
checking tests ... [9s/6s] 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: 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")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) 5: eval(sc, parent.frame()) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) 6: eval(sc, parent.frame()) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") LONG <- 75L 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) 8: doTryCatch(return(expr), name, parentenv, handler) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 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, 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { 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: 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]]lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 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 : "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)) { msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") LONG <- 75L 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: 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")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]], ...) .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: 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))tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: 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 <- 75Lparallel::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) 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 ") }25: gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 27: 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) 28: withCallingHandlers({ eval(code, test_env) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 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) {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: 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)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) { 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 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: 31: tryCatchList(expr, classes, parentenv, handlers)doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: 32: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectationstryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { 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(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_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: skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) {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 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() { }) invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), 36: test_code(code = exprs, env = env, reporter = get_reporter() %||% 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) 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) 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)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") 43: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) NULL}) 44: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 45: 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, 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: 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") test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 48: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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: 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: 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)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") 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.")) 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: }}, 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: 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)) {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()) { 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) 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]]) 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))) 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.")) 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()) }}, 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() { }) } 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: 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) 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) {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: 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]])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 ... 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-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") 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 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() }}, 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) 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 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() }}, 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.")) }}, 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) { 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: skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty()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: }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }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]])}, 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) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 41: doTryCatch(return(expr), name, parentenv, handler) 42: 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 <- 75LtryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 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 ") } 44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } 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()) 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.")) } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, }}, 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({ 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) 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.")) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 16: }}, 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() { })doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 49: 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L)source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: FUN(X[[i]], ...) 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], 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: 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()) }tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers) 55: invisible(structure(msg, class = "try-error", condition = e))}) tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: 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: 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)test_check("FCO") An irrecoverable exception occurred. R is aborting now ... }, 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' *** 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) 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, 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}) 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()) }56: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 57: invisible(structure(msg, class = "try-error", condition = e))}) test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 12: 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 ... 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' *** 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) 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) 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: 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, 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], 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: 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(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]])}) 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: 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, ": ")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: 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]))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() 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, }}, 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) 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: 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")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 } 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, 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 = 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")}) 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 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), 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") 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({}, skip = handle_skip, warning = handle_warning, message = handle_message, 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") } 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.")) } 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) {}, 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") 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, } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) } error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 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")}, 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({ } 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") 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)}, 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: 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: 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({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, 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) { 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") 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() 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... }}, 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 *** 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 = "EM") 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 EM taken over?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM") 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 ... 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 = "EM") 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 EM taken over?", { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, type = "EM") 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 ... *** 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, 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 ... 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, 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: unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 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, 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()) std.lv = TRUE, warn = FALSE, model.type = "cfa") 5: eval(sc, parent.frame()) 6: 6: eval(sc, parent.frame()) 7: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 10: tryCatchList(expr, classes, parentenv, handlers) 11: 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L)tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) 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") 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 (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) if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: cat(msg, file = outFile) .Internal(printDeferredWarnings())generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, free1 = free1, free2 = free2, s = s, k = k, nf = nf) } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 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)16: doTryCatch(return(expr), name, parentenv, handler) 17: 14: FUN(X[[i]], ...) 15: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e)lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ")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) 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) 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()) .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: } invisible(structure(msg, class = "try-error", condition = e))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)}) 20: }, mc.cores = cores) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env)try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 28: withCallingHandlers({ eval(code, test_env)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) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) {}, mc.cores = cores) 25: gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) 26: eval(code, test_env) 27: eval(code, test_env) skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) 28: withCallingHandlers({ eval(code, test_env) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") 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) {}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")29: doTryCatch(return(expr), name, parentenv, handler) 30: }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler) 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]]) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers) 32: 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) {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 skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 36: test_code(code, parent.frame()) skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 37: test_that("Is a second model accepted?", { out <- gen_fit(mod1 = mod, mod2 = mod2, x = bb1992, rep = 10) error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 33: doWithOneRestart(return(expr), restart) 34: expect_s3_class(lavaanify(out$mod2), "data.frame")}) 38: eval(code, test_env) withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations39: eval(code, test_env) 40: withCallingHandlers({ eval(code, test_env) 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() 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") error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 36: test_code(code, parent.frame())}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 41: 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")})doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: 38: eval(code, test_env) tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({39: eval(code, test_env) 40: withCallingHandlers({ 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) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed."))}, skip = handle_skip, warning = handle_warning, message = handle_message, }}, 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() 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) }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) 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 }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") 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() {}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 45: }) 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)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) { 50: FUN(X[[i]], ...) skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) {51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: 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()) doTryCatch(return(expr), name, parentenv, handler)49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 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: 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, 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: error_call = error_call) 52: doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: tryCatchList(expr, classes, parentenv, handlers)test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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) 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) 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 : " 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 3: msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) }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, invisible(structure(msg, class = "try-error", condition = e))}) 12: 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: 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)eval(sc, parent.frame()) 6: eval(sc, parent.frame()) 7: 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...)lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]])doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) {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) 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, ": ") 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)) 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") 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])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile)try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 12: FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) 24: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE), silent = TRUE) 13: 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: 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]], ...) gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) 26: 15: lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) eval(code, test_env) 27: eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env)17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (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)) skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") 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 prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})31: tryCatchList(expr, classes, parentenv, handlers) 32: 20: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: 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."))FUN(X[[i]], ...) 23: lapply(seq_len(cores), inner.do) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") 24: parallel::mclapply(1:rep, function(r) { generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 33: free1 = free1, free2 = free2, s = s, k = k, nf = nf)}, mc.cores = cores) 25: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]])gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE) 26: eval(code, test_env) 27: 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env)eval(code, test_env) 28: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") skip(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, }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 36: error = handle_error, interrupt = handle_interrupt) 29: doTryCatch(return(expr), name, parentenv, handler)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") 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: tryCatchList(expr, classes, parentenv, handlers)}) 38: eval(code, test_env) 39: eval(code, test_env) 32: tryCatch(withCallingHandlers({ eval(code, test_env)40: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("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()) { else if (!new_expectations && skip_on_empty) { skip_empty() } skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]])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() 43: 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")44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations}, 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: if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) {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: skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }eval(code, test_env) 39: eval(code, test_env) 40: }, 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) withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") }45: doWithOneRestart(return(expr), restart) 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."))withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({ }}, 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) 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() } 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]])}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) } 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({}, 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() { }) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) {48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) {49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_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, 50: FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 45: doWithOneRestart(return(expr), restart) 46: 52: doTryCatch(return(expr), name, parentenv, handler) withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 54: eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN")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()) {}) 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, skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot") 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, }, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, load_package = load_package, parallel = parallel, shuffle = shuffle) 59: 48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)An irrecoverable exception occurred. R is aborting now ... 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: 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 *** caught segfault *** address 0x110, cause 'invalid permissions' 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' 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 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)}) 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, 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 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)}) 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 ... 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()) 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, 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") } 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 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) 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 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, 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") } 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 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) 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 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 ... 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()) 6: eval(sc, parent.frame()) 7: lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = 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) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: 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, 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) 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]]) 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")18: .Internal(seterrmessage(msg[1L]))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], 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) 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: 14: FUN(X[[i]], ...) 15: 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) {lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, 18: tryCatchList(expr, classes, parentenv, handlers) 19: tryCatch(expr, error = function(e) { call <- conditionCall(e) 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) 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 : " 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) 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: 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") }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({ 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) eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { 33: doWithOneRestart(return(expr), restart) 34: withOneRestart(expr, restarts[[1L]]) skip_empty()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") }}, 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]]) }, 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)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") } }) 38: eval(code, test_env) 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.")) }39: eval(code, test_env) 40: 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) 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) { 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() 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() { }) }, expectation = handle_expectation, packageNotFoundError = function(e) {36: if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) {test_code(code, parent.frame()) 37: 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: test_that("Is merging used when DV is TRUE, merge.mod is TRUE and dv.factors is provided?", withOneRestart(expr, restarts[[1L]]) 47: { out <- gen_fit(mod1 = mod, x = bb1992, rep = 10, dv = TRUE, merge.mod = TRUE, dv.factors = c("F2", "F3"))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) { expect_equal(out$merge.mod, TRUE) }) 38: eval(code, test_env) 39: eval(code, test_env) if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }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) {}, 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() { }) 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 <<- TRUE48: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 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: 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 50: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env)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) 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: 53: doWithOneRestart(return(expr), restart)tryCatchOne(expr, names, parentenv, handlers[[1L]]) 46: withOneRestart(expr, restarts[[1L]]) 47: 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)) 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 <<- TRUE57: 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") 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()) 60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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, dv.cutoff = 0.85) 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 dv.cutoff set to .85 taken over?", { 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)}) 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() 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, }}, 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) slopestructure = conditional.x, gamma.n.minus.one = lavoptions$gamma.n.minus.one, unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: 41: doTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({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(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()) {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: skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")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)) }, 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]]) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") 47: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { .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))}) 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: 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, 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: 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) {FUN(X[[i]], ...) 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 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, ": ")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 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) }) 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") 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]], ...)60: test_check("FCO") An irrecoverable exception occurred. R is aborting now ... 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.cutoff = 0.85) 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 dv.cutoff set to .85 taken over?", { 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)}) 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) 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: 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) {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) 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], 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: 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))})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) 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]]) 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)) 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, ": ") 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) 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") 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) .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]], ...) 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 ") }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) 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: 26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 27: withCallingHandlers(expr, condition = function(cnd) { if (!is.null(matched) || !matches(cnd)) {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) 26: eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 27: return() } if (can_entrace(cnd)) { cnd <- cnd_entrace(cnd) } matched <<- cnd if (inherits(cnd, "message") || inherits(cnd, "warning")) { cnd_muffle(cnd) } else if (inherits(cnd, "error") || inherits(cnd, "skip")) { return_from(tl, cnd)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")) { cnd_muffle(cnd) } else if (inherits(cnd, "error") || inherits(cnd, "skip")) { return_from(tl, cnd) }}) 28: }}) 28: .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", { { object.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", { }}, regexp = regexp, class = class, ..., inherit = inherit, info = info, label = label) 31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)) { object }}, regexp = regexp, class = class, ..., inherit = inherit, info = info, label = label) 31: expect_warning(gen_fit(mod1 = mod, x = bb1992, rep = 10, standardized = FALSE)) 32: eval(code, test_env)32: eval(code, test_env) 33: eval(code, test_env) 34: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") 33: eval(code, test_env) 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() } } 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")}, 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: }, 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)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) { 38: 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: 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) { 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]]) 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), 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) { if (on_cran()) { 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, 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() { }) 42: test_code(code, parent.frame()) standardized = FALSE)) }) 44: eval(code, test_env) 45: eval(code, test_env) 46: withCallingHandlers({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) 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) {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()) { 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) 47: doTryCatch(return(expr), name, parentenv, handler) 48: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 49: tryCatchList(expr, classes, parentenv, handlers) 50: }}, 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]]) 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) {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) 51: doWithOneRestart(return(expr), restart) 52: withOneRestart(expr, restarts[[1L]]) 53: withRestarts(tryCatch(withCallingHandlers({ 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) 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 51: doWithOneRestart(return(expr), restart) 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) { 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: 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), 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: 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: 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: 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) {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, 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, 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") 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, An irrecoverable exception occurred. R is aborting now ... ..., 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: 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, 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: sample.th = sample.th, sample.nobs = sample.nobs, ov.names = ov.names, ov.names.x = ov.names.x, lavpartable = lavpartable) gen_fit(mod1 = mod, x = bb1992, rep = 10) 26: eval(code, test_env) 4: lavaan::lavaan(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE, model.type = "cfa") 27: eval(code, test_env) 28: 5: eval(sc, parent.frame()) withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } 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) 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.")) 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 }}, snapshot_on_cran = function(cnd) { 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"))) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 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) 29: doTryCatch(return(expr), name, parentenv, handler) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]])13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod, free1 = free, s = s, k = k, nf = nf) 31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) 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 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 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) 18: tryCatchList(expr, classes, parentenv, handlers) 19: 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") }tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) 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.")) } dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") LONG <- 75L}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, 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], 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, parent.frame()) 37: cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: 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)}) try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 38: eval(code, test_env) 22: FUN(X[[i]], ...) 23: 39: eval(code, test_env) 40: withCallingHandlers({lapply(seq_len(cores), inner.do) 24: parallel::mclapply(1:rep, function(r) { eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { 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) skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { 27: eval(code, test_env) 28: withCallingHandlers({ 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: 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 <<- TRUEdoTryCatch(return(expr), name, parentenv, handler) 42: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 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) 43: tryCatchList(expr, classes, parentenv, handlers) 30: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 31: 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") 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() } } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) {}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE 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) invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 34: withOneRestart(expr, restarts[[1L]]) 35: 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."))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()) {}, 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() { }) 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() %||% 36: test_code(code, parent.frame()) 37: StopReporter$new()) 49: source_file(path, env = env(env), desc = desc, shuffle = shuffle, 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) error_call = error_call) 50: FUN(X[[i]], ...)39: eval(code, test_env) 40: 51: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 52: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {doTryCatch(return(expr), name, parentenv, handler) 53: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 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, 54: tryCatchList(expr, classes, parentenv, handlers) 55: error = handle_error, interrupt = handle_interrupt) 41: doTryCatch(return(expr), name, parentenv, handler) 42: 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, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 43: tryCatchList(expr, classes, parentenv, handlers) 44: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations 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, 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) { 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) 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) 59: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 60: test_check("FCO") 45: doWithOneRestart(return(expr), restart) 46: withOneRestart(expr, restarts[[1L]]) 47: withRestarts(tryCatch(withCallingHandlers({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), 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, 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) 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 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' 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, 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) 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 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: 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 ... 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()) 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, 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) unbiased = lavoptions$gamma.unbiased, Mplus.WLS = FALSE) 2: lav_samplestats_from_data(lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, NACOV = NACOV) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 3: lav_lavaan_step05_samplestats(slotSampleStats = slotSampleStats, lavdata = lavdata, lavoptions = lavoptions, WLS.V = WLS.V, 10: tryCatchList(expr, classes, parentenv, handlers) 11: 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")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) 5: eval(sc, parent.frame()) prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") 6: eval(sc, parent.frame()) 7: if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ")lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, std.lv = TRUE, warn = FALSE) 8: doTryCatch(return(expr), name, parentenv, handler) } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: .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))tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) {}) 12: try(lavaan::cfa(free1, y, estimator = "MLM", auto.fix.first = FALSE, 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]] std.lv = TRUE, warn = FALSE), silent = TRUE) 13: generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, 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") free1 = free1, free2 = free2, s = s, k = k, nf = nf) 14: FUN(X[[i]], ...) 15: if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L]))lapply(X = S, FUN = FUN, ...) 16: doTryCatch(return(expr), name, parentenv, handler) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) }17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 18: tryCatchList(expr, classes, parentenv, handlers) 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)19: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) 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) 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)) 14: FUN(X[[i]], ...) 15: lapply(X = S, FUN = FUN, ...) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " 16: doTryCatch(return(expr), name, parentenv, handler) 17: tryCatchOne(expr, names, parentenv, handlers[[1L]]) msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) 18: tryCatchList(expr, classes, parentenv, handlers) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 20: 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)try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 21: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 22: FUN(X[[i]], ...) 23: prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]]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) 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")}, 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") } 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)) 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."))}) 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) }}, 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]]) 24: parallel::mclapply(1:rep, function(r) { generator(x = x, n = n, seed = seeds[r], mode = mode, pop.mod1 = pop.mod1, 35: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) 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()) { new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("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]]) } else if (!new_expectations && skip_on_empty) { skip_empty() }31: tryCatchList(expr, classes, parentenv, handlers) 32: tryCatch(withCallingHandlers({ eval(code, test_env)}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, 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: new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) {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) 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 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal)tryCatchList(expr, classes, parentenv, handlers) 43: 33: doWithOneRestart(return(expr), restart)tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL 34: withOneRestart(expr, restarts[[1L]]) 35: withRestarts(tryCatch(withCallingHandlers({}) 44: eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) {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, skip("On CRAN") } else if (!new_expectations && skip_on_empty) { load_package = load_package, parallel = parallel, shuffle = shuffle) 47: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) {48: 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() { }) 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' 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 ... 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' 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"), 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") } 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"), 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") } 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_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
checking for unstated dependencies in vignettes ... OK
checking package vignettes ... OK
checking re-building of vignette outputs ... [4s/4s] OK
checking PDF version of manual ... [2s/2s] OK
DONE Status: 2 ERRORs
using check arguments '--no-clean-on-error '