Last updated on 2026-08-01 21:51:37 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.9 | 164.27 | 318.72 | 482.99 | OK | |
| r-devel-linux-x86_64-debian-gcc | 1.9 | 131.87 | 225.13 | 357.00 | NOTE | |
| r-devel-linux-x86_64-fedora-clang | 1.9 | 234.00 | 497.68 | 731.68 | OK | |
| r-devel-linux-x86_64-fedora-gcc | 1.9 | 148.00 | 218.43 | 366.43 | OK | |
| r-devel-windows-x86_64 | 1.9 | 187.00 | 298.00 | 485.00 | OK | |
| r-patched-linux-x86_64 | 1.9 | 178.93 | 284.18 | 463.11 | OK | |
| r-release-linux-x86_64 | 1.9 | 171.07 | 285.30 | 456.37 | OK | |
| r-release-macos-arm64 | 1.9 | 36.00 | 60.00 | 96.00 | OK | |
| r-release-macos-x86_64 | 1.9 | 109.00 | 234.00 | 343.00 | OK | |
| r-release-windows-x86_64 | 1.9 | 187.00 | 282.00 | 469.00 | OK | |
| r-oldrel-macos-arm64 | 1.9 | 31.00 | 63.00 | 94.00 | ERROR | |
| r-oldrel-macos-x86_64 | 1.9 | 105.00 | 245.00 | 350.00 | OK | |
| r-oldrel-windows-x86_64 | 1.9 | 264.00 | 383.00 | 647.00 | OK |
Version: 1.9
Check: for new files in some other directories
Result: NOTE
Found the following files/directories:
‘~/tmp/scratch/Rtmp0cLs1y’ ‘~/tmp/scratch/Rtmp1BUqYS’
‘~/tmp/scratch/Rtmp1EOezC’ ‘~/tmp/scratch/Rtmp1Z4hCI’
‘~/tmp/scratch/Rtmp1pgTi3’ ‘~/tmp/scratch/Rtmp2K6YpQ’
‘~/tmp/scratch/Rtmp2gdnWW’ ‘~/tmp/scratch/Rtmp2y2sbt’
‘~/tmp/scratch/Rtmp2yvA0Q’ ‘~/tmp/scratch/Rtmp3noAdr’
‘~/tmp/scratch/Rtmp4BVxJo’ ‘~/tmp/scratch/Rtmp4pDULh’
‘~/tmp/scratch/Rtmp5BmHc6’ ‘~/tmp/scratch/Rtmp5CqJcK’
‘~/tmp/scratch/Rtmp5JYepN’ ‘~/tmp/scratch/Rtmp60g1Df’
‘~/tmp/scratch/Rtmp693r12’ ‘~/tmp/scratch/Rtmp6UuuV6’
‘~/tmp/scratch/Rtmp6rHM0r’ ‘~/tmp/scratch/Rtmp7XifHQ’
‘~/tmp/scratch/Rtmp7ZXeOv’ ‘~/tmp/scratch/Rtmp8mLPvT’
‘~/tmp/scratch/Rtmp9KJhnr’ ‘~/tmp/scratch/Rtmp9d7PcH’
‘~/tmp/scratch/Rtmp9tJIQK’ ‘~/tmp/scratch/RtmpAMecV6’
‘~/tmp/scratch/RtmpAX8bb4’ ‘~/tmp/scratch/RtmpAllflT’
‘~/tmp/scratch/RtmpAzDGVP’ ‘~/tmp/scratch/RtmpB4K1g8’
‘~/tmp/scratch/RtmpBsbvFN’ ‘~/tmp/scratch/RtmpBuRxXp’
‘~/tmp/scratch/RtmpCOR2xy’ ‘~/tmp/scratch/RtmpCZBsEh’
‘~/tmp/scratch/RtmpCdZzvW’ ‘~/tmp/scratch/RtmpD5ofCB’
‘~/tmp/scratch/RtmpD6Llx9’ ‘~/tmp/scratch/RtmpD9djXi’
‘~/tmp/scratch/RtmpDVjCq1’ ‘~/tmp/scratch/RtmpDrP6H0’
‘~/tmp/scratch/RtmpEXxWp1’ ‘~/tmp/scratch/RtmpFHPeNz’
‘~/tmp/scratch/RtmpFR1bxy’ ‘~/tmp/scratch/RtmpFiQW3m’
‘~/tmp/scratch/RtmpFoAHtE’ ‘~/tmp/scratch/RtmpFtdCXT’
‘~/tmp/scratch/RtmpG6UhdZ’ ‘~/tmp/scratch/RtmpGzak1h’
‘~/tmp/scratch/RtmpH6sgwE’ ‘~/tmp/scratch/RtmpHZeLju’
‘~/tmp/scratch/RtmpIT7qC4’ ‘~/tmp/scratch/RtmpJSXYQs’
‘~/tmp/scratch/RtmpJaGIxn’ ‘~/tmp/scratch/RtmpJhjQAm’
‘~/tmp/scratch/RtmpJr3GoH’ ‘~/tmp/scratch/RtmpJwAKBq’
‘~/tmp/scratch/RtmpKnqoE3’ ‘~/tmp/scratch/RtmpLupawM’
‘~/tmp/scratch/RtmpM1Gkcb’ ‘~/tmp/scratch/RtmpM6PQqq’
‘~/tmp/scratch/RtmpMJP2YW’ ‘~/tmp/scratch/RtmpMOnqho’
‘~/tmp/scratch/RtmpMTIF4S’ ‘~/tmp/scratch/RtmpMnBb9S’
‘~/tmp/scratch/RtmpN5XvNJ’ ‘~/tmp/scratch/RtmpNDi42Y’
‘~/tmp/scratch/RtmpNgH1qx’ ‘~/tmp/scratch/RtmpO0SzJ1’
‘~/tmp/scratch/RtmpO1b5PV’ ‘~/tmp/scratch/RtmpOExQW5’
‘~/tmp/scratch/RtmpOXGAFn’ ‘~/tmp/scratch/RtmpOZJjgl’
‘~/tmp/scratch/RtmpOuUmQy’ ‘~/tmp/scratch/RtmpPWRSz8’
‘~/tmp/scratch/RtmpPi2S1X’ ‘~/tmp/scratch/RtmpPn7w7d’
‘~/tmp/scratch/RtmpQ2ehLX’ ‘~/tmp/scratch/RtmpQdAH60’
‘~/tmp/scratch/RtmpRM6X4g’ ‘~/tmp/scratch/RtmpRiLJk8’
‘~/tmp/scratch/RtmpRqTv1U’ ‘~/tmp/scratch/RtmpSm1QFF’
‘~/tmp/scratch/RtmpTDa1T0’ ‘~/tmp/scratch/RtmpTH9MVu’
‘~/tmp/scratch/RtmpTaXlFO’ ‘~/tmp/scratch/RtmpToCXuW’
‘~/tmp/scratch/RtmpUe9HIA’ ‘~/tmp/scratch/RtmpUejzA6’
‘~/tmp/scratch/RtmpUtlPsX’ ‘~/tmp/scratch/RtmpVqbPNY’
‘~/tmp/scratch/RtmpVrfHHZ’ ‘~/tmp/scratch/RtmpXF0ler’
‘~/tmp/scratch/RtmpXFa9mC’ ‘~/tmp/scratch/RtmpXQ7raV’
‘~/tmp/scratch/RtmpXcWyrZ’ ‘~/tmp/scratch/RtmpXegmgL’
‘~/tmp/scratch/RtmpYIhDbm’ ‘~/tmp/scratch/RtmpYL7l8v’
‘~/tmp/scratch/RtmpYmR0sZ’ ‘~/tmp/scratch/RtmpYpeuYd’
‘~/tmp/scratch/RtmpZIPaLE’ ‘~/tmp/scratch/RtmpZubIVM’
‘~/tmp/scratch/Rtmpaa1a7H’ ‘~/tmp/scratch/RtmpbUAdcb’
‘~/tmp/scratch/Rtmpc2Eztu’ ‘~/tmp/scratch/Rtmpc2ND5H’
‘~/tmp/scratch/RtmpcAbdV9’ ‘~/tmp/scratch/RtmpcZdJy4’
‘~/tmp/scratch/Rtmpcdl2B9’ ‘~/tmp/scratch/Rtmpcp8xAj’
‘~/tmp/scratch/Rtmpcqwq9C’ ‘~/tmp/scratch/Rtmpd4nl7X’
‘~/tmp/scratch/RtmpdslCum’ ‘~/tmp/scratch/RtmpdxST5b’
‘~/tmp/scratch/RtmpeIhoGO’ ‘~/tmp/scratch/Rtmpew8FMZ’
‘~/tmp/scratch/Rtmpf5B0Wu’ ‘~/tmp/scratch/RtmpfA3K5M’
‘~/tmp/scratch/RtmpfhyhMq’ ‘~/tmp/scratch/Rtmpg2NRaP’
‘~/tmp/scratch/RtmpgDceVV’ ‘~/tmp/scratch/RtmpiseZdl’
‘~/tmp/scratch/Rtmpivu0Ib’ ‘~/tmp/scratch/RtmpjR26TM’
‘~/tmp/scratch/Rtmpk5aAhj’ ‘~/tmp/scratch/RtmpkDfdKn’
‘~/tmp/scratch/RtmpkIYADX’ ‘~/tmp/scratch/RtmpkvPqFj’
‘~/tmp/scratch/RtmpltNDCV’ ‘~/tmp/scratch/RtmpmUSXMW’
‘~/tmp/scratch/RtmpmYieot’ ‘~/tmp/scratch/RtmpmaZYVo’
‘~/tmp/scratch/RtmpmwLDSV’ ‘~/tmp/scratch/RtmpnHCDjK’
‘~/tmp/scratch/Rtmpnnh20l’ ‘~/tmp/scratch/RtmpoeI7rL’
‘~/tmp/scratch/RtmpoxmzFY’ ‘~/tmp/scratch/Rtmpp3jSH3’
‘~/tmp/scratch/Rtmpp7jmY6’ ‘~/tmp/scratch/RtmppUJF9X’
‘~/tmp/scratch/RtmppXVZq4’ ‘~/tmp/scratch/RtmppqcUce’
‘~/tmp/scratch/RtmpqEG1kG’ ‘~/tmp/scratch/Rtmpr7p7t7’
‘~/tmp/scratch/RtmprJDY8Q’ ‘~/tmp/scratch/RtmprZV964’
‘~/tmp/scratch/RtmprvCS5E’ ‘~/tmp/scratch/Rtmps0nlxx’
‘~/tmp/scratch/Rtmps2oSb3’ ‘~/tmp/scratch/RtmpsYUwIN’
‘~/tmp/scratch/RtmptmEU0m’ ‘~/tmp/scratch/Rtmpu1Jmpm’
‘~/tmp/scratch/RtmpuG7Exd’ ‘~/tmp/scratch/RtmpuLM0Je’
‘~/tmp/scratch/RtmpvU0C7m’ ‘~/tmp/scratch/Rtmpvhj2yD’
‘~/tmp/scratch/RtmpvmYaPQ’ ‘~/tmp/scratch/RtmpwqyFjk’
‘~/tmp/scratch/Rtmpwsp4pT’ ‘~/tmp/scratch/RtmpxDyOHu’
‘~/tmp/scratch/RtmpyPDMpa’ ‘~/tmp/scratch/RtmpzFMg7b’
‘~/tmp/scratch/Rtmpzp9p9O’ ‘~/tmp/scratch/RtmpzupwAP’
‘~/tmp/scratch/xvfb-run.00pNFa’ ‘~/tmp/scratch/xvfb-run.2Oymn4’
‘~/tmp/scratch/xvfb-run.36LwEl’ ‘~/tmp/scratch/xvfb-run.3jfRTB’
‘~/tmp/scratch/xvfb-run.5D1Vv6’ ‘~/tmp/scratch/xvfb-run.63akeH’
‘~/tmp/scratch/xvfb-run.6Og1yy’ ‘~/tmp/scratch/xvfb-run.6bli8g’
‘~/tmp/scratch/xvfb-run.7fT6Ml’ ‘~/tmp/scratch/xvfb-run.8wCclG’
‘~/tmp/scratch/xvfb-run.9TxuG2’ ‘~/tmp/scratch/xvfb-run.AEH14s’
‘~/tmp/scratch/xvfb-run.CGIrfY’ ‘~/tmp/scratch/xvfb-run.CSXWYN’
‘~/tmp/scratch/xvfb-run.Dg7ucX’ ‘~/tmp/scratch/xvfb-run.DldUbL’
‘~/tmp/scratch/xvfb-run.E9WvxK’ ‘~/tmp/scratch/xvfb-run.EvHKjB’
‘~/tmp/scratch/xvfb-run.FMtiCO’ ‘~/tmp/scratch/xvfb-run.FSUcqI’
‘~/tmp/scratch/xvfb-run.HGOA8q’ ‘~/tmp/scratch/xvfb-run.HY5FdV’
‘~/tmp/scratch/xvfb-run.IY4YZb’ ‘~/tmp/scratch/xvfb-run.JTzzei’
‘~/tmp/scratch/xvfb-run.JjM9i5’ ‘~/tmp/scratch/xvfb-run.K4ESr3’
‘~/tmp/scratch/xvfb-run.KeGHOS’ ‘~/tmp/scratch/xvfb-run.LumVb2’
‘~/tmp/scratch/xvfb-run.MCENhT’ ‘~/tmp/scratch/xvfb-run.MxPh9P’
‘~/tmp/scratch/xvfb-run.NBF6RE’ ‘~/tmp/scratch/xvfb-run.NBOsJk’
‘~/tmp/scratch/xvfb-run.NzR0Ho’ ‘~/tmp/scratch/xvfb-run.O6NtEk’
‘~/tmp/scratch/xvfb-run.PI2SgF’ ‘~/tmp/scratch/xvfb-run.PRhmuI’
‘~/tmp/scratch/xvfb-run.PZAQSr’ ‘~/tmp/scratch/xvfb-run.Q1KZTg’
‘~/tmp/scratch/xvfb-run.Q58Cup’ ‘~/tmp/scratch/xvfb-run.RVsoSH’
‘~/tmp/scratch/xvfb-run.SGZZca’ ‘~/tmp/scratch/xvfb-run.TQoMhB’
‘~/tmp/scratch/xvfb-run.TkQxG2’ ‘~/tmp/scratch/xvfb-run.UDUudv’
‘~/tmp/scratch/xvfb-run.VaprJf’ ‘~/tmp/scratch/xvfb-run.WE421J’
‘~/tmp/scratch/xvfb-run.WRwVi5’ ‘~/tmp/scratch/xvfb-run.WbGMiB’
‘~/tmp/scratch/xvfb-run.WiPXw5’ ‘~/tmp/scratch/xvfb-run.X2p4PU’
‘~/tmp/scratch/xvfb-run.XhUBbo’ ‘~/tmp/scratch/xvfb-run.YBC8cw’
‘~/tmp/scratch/xvfb-run.YcIHjt’ ‘~/tmp/scratch/xvfb-run.Yz36gl’
‘~/tmp/scratch/xvfb-run.Z8tVgd’ ‘~/tmp/scratch/xvfb-run.ZMvRyO’
‘~/tmp/scratch/xvfb-run.bmAhsO’ ‘~/tmp/scratch/xvfb-run.cZDdef’
‘~/tmp/scratch/xvfb-run.cxQS5e’ ‘~/tmp/scratch/xvfb-run.h83lHX’
‘~/tmp/scratch/xvfb-run.hktKmH’ ‘~/tmp/scratch/xvfb-run.jHUKzO’
‘~/tmp/scratch/xvfb-run.k1DWFR’ ‘~/tmp/scratch/xvfb-run.kLnbtm’
‘~/tmp/scratch/xvfb-run.ltMEbF’ ‘~/tmp/scratch/xvfb-run.mgj9hf’
‘~/tmp/scratch/xvfb-run.nWNiup’ ‘~/tmp/scratch/xvfb-run.oBMoys’
‘~/tmp/scratch/xvfb-run.pkAAFC’ ‘~/tmp/scratch/xvfb-run.q673UW’
‘~/tmp/scratch/xvfb-run.rMaoez’ ‘~/tmp/scratch/xvfb-run.tM9Yg6’
‘~/tmp/scratch/xvfb-run.tWjASB’ ‘~/tmp/scratch/xvfb-run.uHBrh5’
‘~/tmp/scratch/xvfb-run.vAWR9O’ ‘~/tmp/scratch/xvfb-run.vKBo33’
‘~/tmp/scratch/xvfb-run.vVoogd’ ‘~/tmp/scratch/xvfb-run.vrGjUw’
‘~/tmp/scratch/xvfb-run.wdraww’ ‘~/tmp/scratch/xvfb-run.xQLv6w’
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.9
Check: examples
Result: ERROR
Running examples in ‘ProFAST-Ex.R’ failed
The error most likely occurred in:
> ### Name: diagnostic.cor.eigs
> ### Title: Determine the dimension of low dimensional embedding
> ### Aliases: diagnostic.cor.eigs diagnostic.cor.eigs.default
> ### diagnostic.cor.eigs.Seurat
>
> ### ** Examples
>
> n <- 100
> p <- 50
> d <- 15
> object <- matrix(rnorm(n*d), n, d) %*% matrix(rnorm(d*p), d, p)
> diagnostic.cor.eigs(object, n.sims=2)
Warning in diagnostic.cor.eigs.default(object, n.sims = 2) :
q_max is not less than the number of columns of X. Set it as ncol(X) - 1
Warning in irlba::irlba(A = Y/sqrt(n), nv = q_max) :
You're computing too large a percentage of total singular values, use a standard svd instead.
*** caught segfault ***
address 0x110, cause 'invalid permissions'
Traceback:
1: irlba::irlba(A = X1/sqrt(n), nv = q_max)
2: ...furrr_fn(...)
3: .f(.x[[i]], ...)
4: .Primitive(".Call")(list(name = "map_impl", address = <pointer: 0x600002e061a0>, dll = list(name = "purrr", path = "/Volumes/Builds/packages/big-sur-arm64/Rlib/4.5/purrr/libs/purrr.so", dynamicLookup = FALSE, handle = <pointer: 0xa382e170>, info = <pointer: 0x600000a0cf60>, forceSymbols = FALSE), numParameters = 6L), <environment>, "list", FALSE, 1L, NULL, 1L)
5: call_with_cleanup(map_impl, environment(), .type, .progress, n, names, i)
6: withCallingHandlers(expr, error = function(cnd) { if (i == 0L) { } else { message <- c(i = "In index: {i}.") if (!is.null(names) && !is.na(names[[i]]) && names[[i]] != "") { name <- names[[i]] message <- c(message, i = "With name: {name}.") } else { name <- NULL } cli::cli_abort(message, location = i, name = name, parent = cnd, call = error_call, class = "purrr_error_indexed") }})
7: with_indexed_errors(i = i, names = names, error_call = .purrr_error_call, call_with_cleanup(map_impl, environment(), .type, .progress, n, names, i))
8: map_("list", .x, .f, ..., .progress = .progress)
9: (function (.x, .f, ..., .progress = FALSE) { map_("list", .x, .f, ..., .progress = .progress)})(.x = 1L, .f = function (...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out}, n = 100L, p = 50L)
10: do.call(...furrr_purrr_fn, args)
11: eval(quote({ { future_globals_max_size <- getOption("future.globals.maxSize") if (!identical(future_globals_max_size, ...furrr_globals_max_size)) { options(future.globals.maxSize = ...furrr_globals_max_size) on.exit(options(future.globals.maxSize = future_globals_max_size), add = TRUE) } { ...furrr_chunk_x <- ...furrr_chunk_args { ...furrr_chunk_seeds_env <- environment() ...furrr_chunk_seeds_env[["i"]] <- 1L } { ...furrr_progress <- TRUE tryCatch(expr = { ...furrr_progress_con <- file(...furrr_progress_file, open = "a") on.exit(close(...furrr_progress_con), add = TRUE) }, error = function(cnd) { ...furrr_progress <<- FALSE }) } ...furrr_fn_wrapper <- function(...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out } ...furrr_purrr_fn <- get("map", envir = asNamespace("purrr"), mode = "function", inherits = FALSE) args <- list(.x = ...furrr_chunk_x, .f = ...furrr_fn_wrapper) args <- c(args, ...furrr_dots) do.call(...furrr_purrr_fn, args) } }}), new.env())
12: eval(quote({ { future_globals_max_size <- getOption("future.globals.maxSize") if (!identical(future_globals_max_size, ...furrr_globals_max_size)) { options(future.globals.maxSize = ...furrr_globals_max_size) on.exit(options(future.globals.maxSize = future_globals_max_size), add = TRUE) } { ...furrr_chunk_x <- ...furrr_chunk_args { ...furrr_chunk_seeds_env <- environment() ...furrr_chunk_seeds_env[["i"]] <- 1L } { ...furrr_progress <- TRUE tryCatch(expr = { ...furrr_progress_con <- file(...furrr_progress_file, open = "a") on.exit(close(...furrr_progress_con), add = TRUE) }, error = function(cnd) { ...furrr_progress <<- FALSE }) } ...furrr_fn_wrapper <- function(...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out } ...furrr_purrr_fn <- get("map", envir = asNamespace("purrr"), mode = "function", inherits = FALSE) args <- list(.x = ...furrr_chunk_x, .f = ...furrr_fn_wrapper) args <- c(args, ...furrr_dots) do.call(...furrr_purrr_fn, args) } }}), new.env())
13: eval(expr, p)
14: eval(expr, p)
15: eval.parent(substitute(eval(quote(expr), envir)))
16: local({ { future_globals_max_size <- getOption("future.globals.maxSize") if (!identical(future_globals_max_size, ...furrr_globals_max_size)) { options(future.globals.maxSize = ...furrr_globals_max_size) on.exit(options(future.globals.maxSize = future_globals_max_size), add = TRUE) } { ...furrr_chunk_x <- ...furrr_chunk_args { ...furrr_chunk_seeds_env <- environment() ...furrr_chunk_seeds_env[["i"]] <- 1L } { ...furrr_progress <- TRUE tryCatch(expr = { ...furrr_progress_con <- file(...furrr_progress_file, open = "a") on.exit(close(...furrr_progress_con), add = TRUE) }, error = function(cnd) { ...furrr_progress <<- FALSE }) } ...furrr_fn_wrapper <- function(...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out } ...furrr_purrr_fn <- get("map", envir = asNamespace("purrr"), mode = "function", inherits = FALSE) args <- list(.x = ...furrr_chunk_x, .f = ...furrr_fn_wrapper) args <- c(args, ...furrr_dots) do.call(...furrr_purrr_fn, args) } }})
17: eval(expr, envir = globalenv())
18: eval(expr, envir = globalenv())
19: withVisible({ eval(expr, envir = globalenv())})
20: withCallingHandlers({ ...future.value <- withVisible({ eval(expr, envir = globalenv()) }) seed <- globalenv()[[".Random.seed"]] FutureResult(value = ...future.value[["value"]], visible = ...future.value[["visible"]], conditions = ...future.conditions, rng = !identical(seed, ...future.rng), seed = seed, uuid = uuid, misuseGlobalEnv = if (checkGlobalenv) list(added = diff_globalenv(...future.globalenv.names)) else NULL, misuseConnections = if (checkConnections) diff_connections(get_connections(details = isTRUE(attr(checkConnections, "details", exact = TRUE))), ...future.connections) else NULL, misuseDevices = if (checkDevices) diff_devices(...future.devices, base::.Devices) else NULL, misuseDefaultDevice = ...future.option.defaultDevice, started = ...future.startTime)}, condition = onEvalCondition)
21: tryCatchList(expr, classes, parentenv, handlers)
22: tryCatch({ withCallingHandlers({ ...future.value <- withVisible({ eval(expr, envir = globalenv()) }) seed <- globalenv()[[".Random.seed"]] FutureResult(value = ...future.value[["value"]], visible = ...future.value[["visible"]], conditions = ...future.conditions, rng = !identical(seed, ...future.rng), seed = seed, uuid = uuid, misuseGlobalEnv = if (checkGlobalenv) list(added = diff_globalenv(...future.globalenv.names)) else NULL, misuseConnections = if (checkConnections) diff_connections(get_connections(details = isTRUE(attr(checkConnections, "details", exact = TRUE))), ...future.connections) else NULL, misuseDevices = if (checkDevices) diff_devices(...future.devices, base::.Devices) else NULL, misuseDefaultDevice = ...future.option.defaultDevice, started = ...future.startTime) }, condition = onEvalCondition)}, finally = { setTimeLimit(cpu = Inf, elapsed = Inf, transient = FALSE)})
23: doTryCatch(return(expr), name, parentenv, handler)
24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
25: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
26: doTryCatch(return(expr), name, parentenv, handler)
27: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
28: tryCatchList(expr, classes, parentenv, handlers)
29: tryCatch({ tryCatch({ withCallingHandlers({ ...future.value <- withVisible({ eval(expr, envir = globalenv()) }) seed <- globalenv()[[".Random.seed"]] FutureResult(value = ...future.value[["value"]], visible = ...future.value[["visible"]], conditions = ...future.conditions, rng = !identical(seed, ...future.rng), seed = seed, uuid = uuid, misuseGlobalEnv = if (checkGlobalenv) list(added = diff_globalenv(...future.globalenv.names)) else NULL, misuseConnections = if (checkConnections) diff_connections(get_connections(details = isTRUE(attr(checkConnections, "details", exact = TRUE))), ...future.connections) else NULL, misuseDevices = if (checkDevices) diff_devices(...future.devices, base::.Devices) else NULL, misuseDefaultDevice = ...future.option.defaultDevice, started = ...future.startTime) }, condition = onEvalCondition) }, finally = { setTimeLimit(cpu = Inf, elapsed = Inf, transient = FALSE) })}, interrupt = onEvalErrorOrInterrupt, error = onEvalErrorOrInterrupt)
30: evalFutureInternal(data)
31: doTryCatch(return(expr), name, parentenv, handler)
32: tryCatchOne(expr, names, parentenv, handlers[[1L]])
33: tryCatchList(expr, classes, parentenv, handlers)
34: tryCatch({ evalFutureInternal(data)}, error = function(ex) { msg <- sprintf("future::evalFuture() failed on %s (pid %s) at %s", Sys.info()[["nodename"]], Sys.getpid(), format(Sys.time(), "%FT%T")) if (!requireNamespace("future")) { msg <- sprintf("%s. Package 'future' is not available (worker library path: %s)", msg, paste(sQuote(.libPaths()), collapse = ", ")) } else { ns <- getNamespace("future") if (!exists("evalFutureInternal", mode = "function", envir = ns, inherits = FALSE)) { msg <- sprintf("%s. Package 'future' version %s is too old. Please update and retry", msg, packageVersion("future")) } else { msg <- sprintf("%s. Using package 'future' v%s", msg, packageVersion("future")) } } msg <- sprintf("%s. Possible other reasons: %s", msg, conditionMessage(ex)) call <- conditionCall(ex) if (!is.null(call)) { call <- deparse(call, width.cutoff = 500L) call <- paste(call, collapse = " -> ") msg <- sprintf("%s [in %s]", msg, call) } ex <- simpleError(msg) class(ex) <- c("FutureLaunchError", "FutureError", class(ex)) ex})
35: evalFuture(data)
36: eval(expr, env)
37: doTryCatch(return(expr), name, parentenv, handler)
38: tryCatchOne(expr, names, parentenv, handlers[[1L]])
39: tryCatchList(expr, classes, parentenv, handlers)
40: 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))})
41: try(eval(expr, env), silent = TRUE)
42: serialize(what, NULL, xdr = FALSE)
43: sendMaster(try(eval(expr, env), silent = TRUE), FALSE)
44: mcparallel(evalFuture(data))
45: (function() { oopts <- options(mc.cores = NULL) on.exit(options(oopts)) mcparallel(evalFuture(data))})()
46: launchFuture.MulticoreFutureBackend(backend, future = future)
47: launchFuture(backend, future = future)
48: doTryCatch(return(expr), name, parentenv, handler)
49: tryCatchOne(expr, names, parentenv, handlers[[1L]])
50: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
51: doTryCatch(return(expr), name, parentenv, handler)
52: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
53: tryCatchList(expr, classes, parentenv, handlers)
54: tryCatch({ launchFuture(backend, future = future)}, FutureError = function(ex) { future[["state"]] <- "failed" stop(ex)}, error = function(ex) { msg <- conditionMessage(ex) label <- sQuoteLabel(future) msg <- sprintf("Caught an unexpected error of class %s when trying to launch future (%s) on backend of class %s. The reason was: %s", class(ex)[1], label, class(backend)[1], msg) future[["state"]] <- "failed" stop(FutureLaunchError(msg, future = future))})
55: run.Future(future)
56: run(future)
57: future::future(expr, substitute = FALSE, envir = env_globals, stdout = options$stdout, conditions = options$conditions, globals = chunk_globals, packages = chunk_packages, seed = options$seed, label = labels[[i]])
58: furrr_template(args = x, fn = fn, dots = dots, n = n, options = options, progress = progress, type = type, names = names, env_globals = env_globals, expr = expr, extract = furrr_map_extract)
59: furrr_map_template(x = .x, fn = .f, dots = list(...), options = .options, progress = .progress, type = "list", purrr_fn_name = "map", env_globals = .env_globals)
60: furrr::future_map(1:n.sims, corr_fun, n = n, p = p, .progress = TRUE, .options = furrr::furrr_options(seed = seed))
61: diagnostic.cor.eigs.default(object, n.sims = 2)
62: diagnostic.cor.eigs(object, n.sims = 2)
An irrecoverable exception occurred. R is aborting now ...
*** caught segfault ***
address 0x110, cause 'invalid permissions'
Traceback:
1: irlba::irlba(A = X1/sqrt(n), nv = q_max)
2: ...furrr_fn(...)
3: .f(.x[[i]], ...)
4: .Primitive(".Call")(list(name = "map_impl", address = <pointer: 0x600002e061a0>, dll = list(name = "purrr", path = "/Volumes/Builds/packages/big-sur-arm64/Rlib/4.5/purrr/libs/purrr.so", dynamicLookup = FALSE, handle = <pointer: 0xa382e170>, info = <pointer: 0x600000a0cf60>, forceSymbols = FALSE), numParameters = 6L), <environment>, "list", FALSE, 1L, NULL, 1L)
5: call_with_cleanup(map_impl, environment(), .type, .progress, n, names, i)
6: withCallingHandlers(expr, error = function(cnd) { if (i == 0L) { } else { message <- c(i = "In index: {i}.") if (!is.null(names) && !is.na(names[[i]]) && names[[i]] != "") { name <- names[[i]] message <- c(message, i = "With name: {name}.") } else { name <- NULL } cli::cli_abort(message, location = i, name = name, parent = cnd, call = error_call, class = "purrr_error_indexed") }})
7: with_indexed_errors(i = i, names = names, error_call = .purrr_error_call, call_with_cleanup(map_impl, environment(), .type, .progress, n, names, i))
8: map_("list", .x, .f, ..., .progress = .progress)
9: (function (.x, .f, ..., .progress = FALSE) { map_("list", .x, .f, ..., .progress = .progress)})(.x = 2L, .f = function (...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out}, n = 100L, p = 50L)
10: do.call(...furrr_purrr_fn, args)
11: eval(quote({ { future_globals_max_size <- getOption("future.globals.maxSize") if (!identical(future_globals_max_size, ...furrr_globals_max_size)) { options(future.globals.maxSize = ...furrr_globals_max_size) on.exit(options(future.globals.maxSize = future_globals_max_size), add = TRUE) } { ...furrr_chunk_x <- ...furrr_chunk_args { ...furrr_chunk_seeds_env <- environment() ...furrr_chunk_seeds_env[["i"]] <- 1L } { ...furrr_progress <- TRUE tryCatch(expr = { ...furrr_progress_con <- file(...furrr_progress_file, open = "a") on.exit(close(...furrr_progress_con), add = TRUE) }, error = function(cnd) { ...furrr_progress <<- FALSE }) } ...furrr_fn_wrapper <- function(...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out } ...furrr_purrr_fn <- get("map", envir = asNamespace("purrr"), mode = "function", inherits = FALSE) args <- list(.x = ...furrr_chunk_x, .f = ...furrr_fn_wrapper) args <- c(args, ...furrr_dots) do.call(...furrr_purrr_fn, args) } }}), new.env())
12: eval(quote({ { future_globals_max_size <- getOption("future.globals.maxSize") if (!identical(future_globals_max_size, ...furrr_globals_max_size)) { options(future.globals.maxSize = ...furrr_globals_max_size) on.exit(options(future.globals.maxSize = future_globals_max_size), add = TRUE) } { ...furrr_chunk_x <- ...furrr_chunk_args { ...furrr_chunk_seeds_env <- environment() ...furrr_chunk_seeds_env[["i"]] <- 1L } { ...furrr_progress <- TRUE tryCatch(expr = { ...furrr_progress_con <- file(...furrr_progress_file, open = "a") on.exit(close(...furrr_progress_con), add = TRUE) }, error = function(cnd) { ...furrr_progress <<- FALSE }) } ...furrr_fn_wrapper <- function(...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out } ...furrr_purrr_fn <- get("map", envir = asNamespace("purrr"), mode = "function", inherits = FALSE) args <- list(.x = ...furrr_chunk_x, .f = ...furrr_fn_wrapper) args <- c(args, ...furrr_dots) do.call(...furrr_purrr_fn, args) } }}), new.env())
13: eval(expr, p)
14: eval(expr, p)
15: eval.parent(substitute(eval(quote(expr), envir)))
16: local({ { future_globals_max_size <- getOption("future.globals.maxSize") if (!identical(future_globals_max_size, ...furrr_globals_max_size)) { options(future.globals.maxSize = ...furrr_globals_max_size) on.exit(options(future.globals.maxSize = future_globals_max_size), add = TRUE) } { ...furrr_chunk_x <- ...furrr_chunk_args { ...furrr_chunk_seeds_env <- environment() ...furrr_chunk_seeds_env[["i"]] <- 1L } { ...furrr_progress <- TRUE tryCatch(expr = { ...furrr_progress_con <- file(...furrr_progress_file, open = "a") on.exit(close(...furrr_progress_con), add = TRUE) }, error = function(cnd) { ...furrr_progress <<- FALSE }) } ...furrr_fn_wrapper <- function(...) { { ...furrr_chunk_seeds_i <- ...furrr_chunk_seeds_env[["i"]] ...furrr_chunk_seeds_env[["i"]] <- ...furrr_chunk_seeds_i + 1L assign(x = ".Random.seed", value = ...furrr_chunk_seeds[[...furrr_chunk_seeds_i]], envir = globalenv(), inherits = FALSE) } { if (...furrr_progress) { try(expr = { cat("+", file = ...furrr_progress_con, sep = "") }, silent = TRUE) } } ...furrr_out <- ...furrr_fn(...) ...furrr_out } ...furrr_purrr_fn <- get("map", envir = asNamespace("purrr"), mode = "function", inherits = FALSE) args <- list(.x = ...furrr_chunk_x, .f = ...furrr_fn_wrapper) args <- c(args, ...furrr_dots) do.call(...furrr_purrr_fn, args) } }})
17: eval(expr, envir = globalenv())
18: eval(expr, envir = globalenv())
19: withVisible({ eval(expr, envir = globalenv())})
20: withCallingHandlers({ ...future.value <- withVisible({ eval(expr, envir = globalenv()) }) seed <- globalenv()[[".Random.seed"]] FutureResult(value = ...future.value[["value"]], visible = ...future.value[["visible"]], conditions = ...future.conditions, rng = !identical(seed, ...future.rng), seed = seed, uuid = uuid, misuseGlobalEnv = if (checkGlobalenv) list(added = diff_globalenv(...future.globalenv.names)) else NULL, misuseConnections = if (checkConnections) diff_connections(get_connections(details = isTRUE(attr(checkConnections, "details", exact = TRUE))), ...future.connections) else NULL, misuseDevices = if (checkDevices) diff_devices(...future.devices, base::.Devices) else NULL, misuseDefaultDevice = ...future.option.defaultDevice, started = ...future.startTime)}, condition = onEvalCondition)
21: tryCatchList(expr, classes, parentenv, handlers)
22: tryCatch({ withCallingHandlers({ ...future.value <- withVisible({ eval(expr, envir = globalenv()) }) seed <- globalenv()[[".Random.seed"]] FutureResult(value = ...future.value[["value"]], visible = ...future.value[["visible"]], conditions = ...future.conditions, rng = !identical(seed, ...future.rng), seed = seed, uuid = uuid, misuseGlobalEnv = if (checkGlobalenv) list(added = diff_globalenv(...future.globalenv.names)) else NULL, misuseConnections = if (checkConnections) diff_connections(get_connections(details = isTRUE(attr(checkConnections, "details", exact = TRUE))), ...future.connections) else NULL, misuseDevices = if (checkDevices) diff_devices(...future.devices, base::.Devices) else NULL, misuseDefaultDevice = ...future.option.defaultDevice, started = ...future.startTime) }, condition = onEvalCondition)}, finally = { setTimeLimit(cpu = Inf, elapsed = Inf, transient = FALSE)})
23: doTryCatch(return(expr), name, parentenv, handler)
24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
25: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
26: doTryCatch(return(expr), name, parentenv, handler)
27: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
28: tryCatchList(expr, classes, parentenv, handlers)
29: tryCatch({ tryCatch({ withCallingHandlers({ ...future.value <- withVisible({ eval(expr, envir = globalenv()) }) seed <- globalenv()[[".Random.seed"]] FutureResult(value = ...future.value[["value"]], visible = ...future.value[["visible"]], conditions = ...future.conditions, rng = !identical(seed, ...future.rng), seed = seed, uuid = uuid, misuseGlobalEnv = if (checkGlobalenv) list(added = diff_globalenv(...future.globalenv.names)) else NULL, misuseConnections = if (checkConnections) diff_connections(get_connections(details = isTRUE(attr(checkConnections, "details", exact = TRUE))), ...future.connections) else NULL, misuseDevices = if (checkDevices) diff_devices(...future.devices, base::.Devices) else NULL, misuseDefaultDevice = ...future.option.defaultDevice, started = ...future.startTime) }, condition = onEvalCondition) }, finally = { setTimeLimit(cpu = Inf, elapsed = Inf, transient = FALSE) })}, interrupt = onEvalErrorOrInterrupt, error = onEvalErrorOrInterrupt)
30: evalFutureInternal(data)
31: doTryCatch(return(expr), name, parentenv, handler)
32: tryCatchOne(expr, names, parentenv, handlers[[1L]])
33: tryCatchList(expr, classes, parentenv, handlers)
34: tryCatch({ evalFutureInternal(data)}, error = function(ex) { msg <- sprintf("future::evalFuture() failed on %s (pid %s) at %s", Sys.info()[["nodename"]], Sys.getpid(), format(Sys.time(), "%FT%T")) if (!requireNamespace("future")) { msg <- sprintf("%s. Package 'future' is not available (worker library path: %s)", msg, paste(sQuote(.libPaths()), collapse = ", ")) } else { ns <- getNamespace("future") if (!exists("evalFutureInternal", mode = "function", envir = ns, inherits = FALSE)) { msg <- sprintf("%s. Package 'future' version %s is too old. Please update and retry", msg, packageVersion("future")) } else { msg <- sprintf("%s. Using package 'future' v%s", msg, packageVersion("future")) } } msg <- sprintf("%s. Possible other reasons: %s", msg, conditionMessage(ex)) call <- conditionCall(ex) if (!is.null(call)) { call <- deparse(call, width.cutoff = 500L) call <- paste(call, collapse = " -> ") msg <- sprintf("%s [in %s]", msg, call) } ex <- simpleError(msg) class(ex) <- c("FutureLaunchError", "FutureError", class(ex)) ex})
35: evalFuture(data)
36: eval(expr, env)
37: doTryCatch(return(expr), name, parentenv, handler)
38: tryCatchOne(expr, names, parentenv, handlers[[1L]])
39: tryCatchList(expr, classes, parentenv, handlers)
40: 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))})
41: try(eval(expr, env), silent = TRUE)
42: serialize(what, NULL, xdr = FALSE)
43: sendMaster(try(eval(expr, env), silent = TRUE), FALSE)
44: mcparallel(evalFuture(data))
45: (function() { oopts <- options(mc.cores = NULL) on.exit(options(oopts)) mcparallel(evalFuture(data))})()
46: launchFuture.MulticoreFutureBackend(backend, future = future)
47: launchFuture(backend, future = future)
48: doTryCatch(return(expr), name, parentenv, handler)
49: tryCatchOne(expr, names, parentenv, handlers[[1L]])
50: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
51: doTryCatch(return(expr), name, parentenv, handler)
52: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
53: tryCatchList(expr, classes, parentenv, handlers)
54: tryCatch({ launchFuture(backend, future = future)}, FutureError = function(ex) { future[["state"]] <- "failed" stop(ex)}, error = function(ex) { msg <- conditionMessage(ex) label <- sQuoteLabel(future) msg <- sprintf("Caught an unexpected error of class %s when trying to launch future (%s) on backend of class %s. The reason was: %s", class(ex)[1], label, class(backend)[1], msg) future[["state"]] <- "failed" stop(FutureLaunchError(msg, future = future))})
55: run.Future(future)
56: run(future)
57: future::future(expr, substitute = FALSE, envir = env_globals, stdout = options$stdout, conditions = options$conditions, globals = chunk_globals, packages = chunk_packages, seed = options$seed, label = labels[[i]])
58: furrr_template(args = x, fn = fn, dots = dots, n = n, options = options, progress = progress, type = type, names = names, env_globals = env_globals, expr = expr, extract = furrr_map_extract)
59: furrr_map_template(x = .x, fn = .f, dots = list(...), options = .options, progress = .progress, type = "list", purrr_fn_name = "map", env_globals = .env_globals)
60: furrr::future_map(1:n.sims, corr_fun, n = n, p = p, .progress = TRUE, .options = furrr::furrr_options(seed = seed))
61: diagnostic.cor.eigs.default(object, n.sims = 2)
62: diagnostic.cor.eigs(object, n.sims = 2)
An irrecoverable exception occurred. R is aborting now ...
Warning in file(file, open = "r") :
cannot open file '/Volumes/Temp/tmp/Rtmp2TInj9/file1594a38e920c8.txt': No such file or directory
Error in file(file, open = "r") : cannot open the connection
Calls: diagnostic.cor.eigs ... furrr_map_template -> furrr_template -> poll_progress -> file
Execution halted
Flavor: r-oldrel-macos-arm64