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