CRAN Package Check Results for Package rEDM

Last updated on 2026-08-04 02:51:05 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.15.4 129.92 73.48 203.40 NOTE
r-devel-linux-x86_64-debian-gcc 2.0.1 2.47 218.85 221.32 NOTE
r-devel-linux-x86_64-fedora-clang 2.0.1 358.17 OK
r-devel-linux-x86_64-fedora-gcc 2.0.1 186.14 OK
r-devel-windows-x86_64 1.15.4 152.00 194.00 346.00 NOTE
r-patched-linux-x86_64 1.15.4 136.52 67.86 204.38 NOTE
r-release-linux-x86_64 2.0.1 3.33 205.22 208.55 OK
r-release-macos-arm64 2.0.1 1.00 67.00 68.00 OK
r-release-macos-x86_64 2.0.1 3.00 195.00 198.00 OK
r-release-windows-x86_64 2.0.1 7.00 129.00 136.00 OK
r-oldrel-macos-arm64 2.0.1 1.00 25.00 26.00 ERROR
r-oldrel-macos-x86_64 2.0.1 3.00 199.00 202.00 OK
r-oldrel-windows-x86_64 2.0.1 8.00 166.00 174.00 OK

Check Details

Version: 1.15.4
Check: compiled code
Result: NOTE File ‘rEDM/libs/rEDM.so’: Found ‘_ZSt4cout’, possibly from ‘std::cout’ (C++) Objects: ‘cppEDM/lib/libEDM.a’, ‘cppEDM/src/libEDM.a’ Compiled code should not call entry points which might terminate R nor write to stdout/stderr instead of to the console, nor use Fortran I/O nor system RNGs nor [v]sprintf. See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual. Flavors: r-devel-linux-x86_64-debian-clang, r-patched-linux-x86_64

Version: 2.0.1
Check: for new files in some other directories
Result: NOTE Found the following files/directories: ‘~/tmp/scratch/Rtmp0JFG5p’ ‘~/tmp/scratch/Rtmp0SooXc’ ‘~/tmp/scratch/Rtmp0hSg8g’ ‘~/tmp/scratch/Rtmp153IsK’ ‘~/tmp/scratch/Rtmp173SFV’ ‘~/tmp/scratch/Rtmp1FyS2m’ ‘~/tmp/scratch/Rtmp1Qi5cH’ ‘~/tmp/scratch/Rtmp1aJWYW’ ‘~/tmp/scratch/Rtmp1rJkgt’ ‘~/tmp/scratch/Rtmp1s0mfx’ ‘~/tmp/scratch/Rtmp2hbJXj’ ‘~/tmp/scratch/Rtmp3QsXQx’ ‘~/tmp/scratch/Rtmp4j0H7j’ ‘~/tmp/scratch/Rtmp4pGlsB’ ‘~/tmp/scratch/Rtmp5rqq9L’ ‘~/tmp/scratch/Rtmp5uXzCc’ ‘~/tmp/scratch/Rtmp6WSMLX’ ‘~/tmp/scratch/Rtmp6ge6P0’ ‘~/tmp/scratch/Rtmp6sXRdn’ ‘~/tmp/scratch/Rtmp73FzTr’ ‘~/tmp/scratch/Rtmp7bZtKb’ ‘~/tmp/scratch/Rtmp8h7nh9’ ‘~/tmp/scratch/Rtmp8jg1fm’ ‘~/tmp/scratch/Rtmp9EF6wE’ ‘~/tmp/scratch/Rtmp9rGoPR’ ‘~/tmp/scratch/RtmpAaORdm’ ‘~/tmp/scratch/RtmpBJ8WZG’ ‘~/tmp/scratch/RtmpCPdczO’ ‘~/tmp/scratch/RtmpD1qpD5’ ‘~/tmp/scratch/RtmpDPKccj’ ‘~/tmp/scratch/RtmpDQbtOn’ ‘~/tmp/scratch/RtmpDrb6TY’ ‘~/tmp/scratch/RtmpDxYb1q’ ‘~/tmp/scratch/RtmpEFIcBX’ ‘~/tmp/scratch/RtmpEqnkCs’ ‘~/tmp/scratch/RtmpFchuZU’ ‘~/tmp/scratch/RtmpFyiktw’ ‘~/tmp/scratch/RtmpHIAXTs’ ‘~/tmp/scratch/RtmpHchsoJ’ ‘~/tmp/scratch/RtmpHm1K1T’ ‘~/tmp/scratch/RtmpHpXYhn’ ‘~/tmp/scratch/RtmpIeV3gd’ ‘~/tmp/scratch/RtmpInJtGl’ ‘~/tmp/scratch/RtmpJR4Cnp’ ‘~/tmp/scratch/RtmpJb7ZOn’ ‘~/tmp/scratch/RtmpKVBdIa’ ‘~/tmp/scratch/RtmpKylXTq’ ‘~/tmp/scratch/RtmpLAdJfG’ ‘~/tmp/scratch/RtmpM5pNjR’ ‘~/tmp/scratch/RtmpMNmKwy’ ‘~/tmp/scratch/RtmpMibakZ’ ‘~/tmp/scratch/RtmpNuYTbd’ ‘~/tmp/scratch/RtmpOwyb3o’ ‘~/tmp/scratch/RtmpP6so4o’ ‘~/tmp/scratch/RtmpPKMVhK’ ‘~/tmp/scratch/RtmpPTyo9h’ ‘~/tmp/scratch/RtmpPqrNzF’ ‘~/tmp/scratch/RtmpQObBY3’ ‘~/tmp/scratch/RtmpQZeyPF’ ‘~/tmp/scratch/RtmpQk2fsb’ ‘~/tmp/scratch/RtmpRIPwmU’ ‘~/tmp/scratch/RtmpRLBAum’ ‘~/tmp/scratch/RtmpRkLtLP’ ‘~/tmp/scratch/RtmpRsvCHl’ ‘~/tmp/scratch/RtmpS6uyPp’ ‘~/tmp/scratch/RtmpSjtYRI’ ‘~/tmp/scratch/RtmpT2pY6i’ ‘~/tmp/scratch/RtmpTAjaR2’ ‘~/tmp/scratch/RtmpTMc8aV’ ‘~/tmp/scratch/RtmpTX0L5a’ ‘~/tmp/scratch/RtmpTuwY4p’ ‘~/tmp/scratch/RtmpUYRMEk’ ‘~/tmp/scratch/RtmpUlfFDh’ ‘~/tmp/scratch/RtmpUxHh6B’ ‘~/tmp/scratch/RtmpVGWjtW’ ‘~/tmp/scratch/RtmpVwRgf6’ ‘~/tmp/scratch/RtmpW0Gnl4’ ‘~/tmp/scratch/RtmpWR9zk4’ ‘~/tmp/scratch/RtmpWU60bd’ ‘~/tmp/scratch/RtmpWV480R’ ‘~/tmp/scratch/RtmpWgqFtA’ ‘~/tmp/scratch/RtmpXjhfJp’ ‘~/tmp/scratch/RtmpYVqbbb’ ‘~/tmp/scratch/RtmpYXKlCO’ ‘~/tmp/scratch/RtmpZiAVOv’ ‘~/tmp/scratch/RtmpaB4fUo’ ‘~/tmp/scratch/Rtmpab92Qv’ ‘~/tmp/scratch/RtmpabrIKG’ ‘~/tmp/scratch/Rtmpaktd1n’ ‘~/tmp/scratch/Rtmpb9CE0Y’ ‘~/tmp/scratch/RtmpcTYul6’ ‘~/tmp/scratch/Rtmpd09JIV’ ‘~/tmp/scratch/RtmpeIHh5o’ ‘~/tmp/scratch/Rtmpf55tnx’ ‘~/tmp/scratch/RtmpfJHyBQ’ ‘~/tmp/scratch/RtmpfT3ZJU’ ‘~/tmp/scratch/RtmpfUqNk2’ ‘~/tmp/scratch/RtmpfkMW5N’ ‘~/tmp/scratch/Rtmpg8Gxbn’ ‘~/tmp/scratch/RtmpgQk4Pe’ ‘~/tmp/scratch/RtmpgXg9jo’ ‘~/tmp/scratch/RtmpiurqpI’ ‘~/tmp/scratch/RtmpjIPyBK’ ‘~/tmp/scratch/RtmpjqByCa’ ‘~/tmp/scratch/Rtmpl4Zb1W’ ‘~/tmp/scratch/RtmplAPwKv’ ‘~/tmp/scratch/RtmpmNK566’ ‘~/tmp/scratch/RtmpmOqWit’ ‘~/tmp/scratch/RtmpmRituB’ ‘~/tmp/scratch/RtmpmWNjQ4’ ‘~/tmp/scratch/RtmpnAyhjX’ ‘~/tmp/scratch/RtmpncVH2f’ ‘~/tmp/scratch/RtmpoLbJEU’ ‘~/tmp/scratch/RtmpoRRe0b’ ‘~/tmp/scratch/RtmpodjtZ3’ ‘~/tmp/scratch/RtmpofVdNc’ ‘~/tmp/scratch/RtmponGdvS’ ‘~/tmp/scratch/RtmposUhbD’ ‘~/tmp/scratch/Rtmpp6nPhO’ ‘~/tmp/scratch/Rtmppkp06V’ ‘~/tmp/scratch/RtmppuZZK0’ ‘~/tmp/scratch/RtmpqIxp38’ ‘~/tmp/scratch/RtmpqJJIAP’ ‘~/tmp/scratch/RtmpqRjxoT’ ‘~/tmp/scratch/Rtmpqyaifi’ ‘~/tmp/scratch/Rtmpr3X8Pk’ ‘~/tmp/scratch/Rtmpr5XCaI’ ‘~/tmp/scratch/RtmprTHnGJ’ ‘~/tmp/scratch/RtmprfGD82’ ‘~/tmp/scratch/Rtmprh89nr’ ‘~/tmp/scratch/Rtmprqb03q’ ‘~/tmp/scratch/RtmpsK618N’ ‘~/tmp/scratch/RtmpsXUT9L’ ‘~/tmp/scratch/Rtmpt93mnP’ ‘~/tmp/scratch/Rtmptdl1pb’ ‘~/tmp/scratch/RtmptducYG’ ‘~/tmp/scratch/RtmptgfTBm’ ‘~/tmp/scratch/RtmpuYnMsF’ ‘~/tmp/scratch/Rtmpv4buUs’ ‘~/tmp/scratch/RtmpvEWG27’ ‘~/tmp/scratch/RtmpvW1me9’ ‘~/tmp/scratch/RtmpwYwjui’ ‘~/tmp/scratch/RtmpwbwtpE’ ‘~/tmp/scratch/Rtmpwdnokn’ ‘~/tmp/scratch/RtmpwvOlnK’ ‘~/tmp/scratch/RtmpwyaBQX’ ‘~/tmp/scratch/RtmpxIbGwH’ ‘~/tmp/scratch/RtmpxP42Jg’ ‘~/tmp/scratch/Rtmpxc8JmY’ ‘~/tmp/scratch/Rtmpxfm6UL’ ‘~/tmp/scratch/Rtmpxrtmpx’ ‘~/tmp/scratch/RtmpzgHY3w’ ‘~/tmp/scratch/ccjNy7ME.s’ ‘~/tmp/scratch/xvfb-run.1Aza03’ ‘~/tmp/scratch/xvfb-run.1CXrfi’ ‘~/tmp/scratch/xvfb-run.1E7ZQU’ ‘~/tmp/scratch/xvfb-run.2zkjEY’ ‘~/tmp/scratch/xvfb-run.5AOzSC’ ‘~/tmp/scratch/xvfb-run.5ensZc’ ‘~/tmp/scratch/xvfb-run.7fd3VB’ ‘~/tmp/scratch/xvfb-run.8EmXhL’ ‘~/tmp/scratch/xvfb-run.8pGlSL’ ‘~/tmp/scratch/xvfb-run.9Ozela’ ‘~/tmp/scratch/xvfb-run.BUH0bY’ ‘~/tmp/scratch/xvfb-run.BXsZEj’ ‘~/tmp/scratch/xvfb-run.BxjTDg’ ‘~/tmp/scratch/xvfb-run.C8oChr’ ‘~/tmp/scratch/xvfb-run.Cq0FXz’ ‘~/tmp/scratch/xvfb-run.DDpn7j’ ‘~/tmp/scratch/xvfb-run.DVIBMq’ ‘~/tmp/scratch/xvfb-run.Dn28ze’ ‘~/tmp/scratch/xvfb-run.F3k9zX’ ‘~/tmp/scratch/xvfb-run.Fars8i’ ‘~/tmp/scratch/xvfb-run.FiAt7v’ ‘~/tmp/scratch/xvfb-run.FjlrM7’ ‘~/tmp/scratch/xvfb-run.GJh2M4’ ‘~/tmp/scratch/xvfb-run.GNWhPF’ ‘~/tmp/scratch/xvfb-run.HZ4aEN’ ‘~/tmp/scratch/xvfb-run.HehmqX’ ‘~/tmp/scratch/xvfb-run.HiBncP’ ‘~/tmp/scratch/xvfb-run.JRqSHf’ ‘~/tmp/scratch/xvfb-run.K5Mx7t’ ‘~/tmp/scratch/xvfb-run.KPdYw1’ ‘~/tmp/scratch/xvfb-run.KVTLjh’ ‘~/tmp/scratch/xvfb-run.LRBAv6’ ‘~/tmp/scratch/xvfb-run.Mf1NXW’ ‘~/tmp/scratch/xvfb-run.MsSv1r’ ‘~/tmp/scratch/xvfb-run.OqFlOJ’ ‘~/tmp/scratch/xvfb-run.Ug39Qd’ ‘~/tmp/scratch/xvfb-run.VJvy7x’ ‘~/tmp/scratch/xvfb-run.VKlMGp’ ‘~/tmp/scratch/xvfb-run.W5tl0n’ ‘~/tmp/scratch/xvfb-run.WO8rqr’ ‘~/tmp/scratch/xvfb-run.X7NrdI’ ‘~/tmp/scratch/xvfb-run.XEXuU5’ ‘~/tmp/scratch/xvfb-run.YMiiav’ ‘~/tmp/scratch/xvfb-run.YcAFga’ ‘~/tmp/scratch/xvfb-run.Z9fHz6’ ‘~/tmp/scratch/xvfb-run.avoK5B’ ‘~/tmp/scratch/xvfb-run.b7B5g1’ ‘~/tmp/scratch/xvfb-run.bZ7ugp’ ‘~/tmp/scratch/xvfb-run.dbxlFb’ ‘~/tmp/scratch/xvfb-run.eeAuB7’ ‘~/tmp/scratch/xvfb-run.esQDfw’ ‘~/tmp/scratch/xvfb-run.f2uWdM’ ‘~/tmp/scratch/xvfb-run.f8aeqn’ ‘~/tmp/scratch/xvfb-run.fw4A1O’ ‘~/tmp/scratch/xvfb-run.gAkvzX’ ‘~/tmp/scratch/xvfb-run.gxVnkN’ ‘~/tmp/scratch/xvfb-run.hSQ9cZ’ ‘~/tmp/scratch/xvfb-run.ipTrVZ’ ‘~/tmp/scratch/xvfb-run.kjKA1V’ ‘~/tmp/scratch/xvfb-run.klfQFW’ ‘~/tmp/scratch/xvfb-run.leyr5L’ ‘~/tmp/scratch/xvfb-run.mAPZ3P’ ‘~/tmp/scratch/xvfb-run.mU4uKr’ ‘~/tmp/scratch/xvfb-run.nJReaU’ ‘~/tmp/scratch/xvfb-run.nUBL1J’ ‘~/tmp/scratch/xvfb-run.nqP8OJ’ ‘~/tmp/scratch/xvfb-run.ozrjoo’ ‘~/tmp/scratch/xvfb-run.pDYCJR’ ‘~/tmp/scratch/xvfb-run.pyZVgi’ ‘~/tmp/scratch/xvfb-run.v3yjTw’ ‘~/tmp/scratch/xvfb-run.yNos23’ ‘~/tmp/scratch/xvfb-run.zyHYvZ’ Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.15.4
Check: compiled code
Result: NOTE File 'rEDM/libs/x64/rEDM.dll': Found '_ZSt4cout', possibly from 'std::cout' (C++) Objects: 'cppEDM/lib/libEDM.a', 'cppEDM/src/libEDM.a' Compiled code should not call entry points which might terminate R nor write to stdout/stderr instead of to the console, nor use Fortran I/O nor system RNGs nor [v]sprintf. See 'Writing portable packages' in the 'Writing R Extensions' manual. Flavor: r-devel-windows-x86_64

Version: 2.0.1
Check: re-building of vignette outputs
Result: ERROR Error(s) in re-building vignettes: --- re-building ‘rEDM-tutorial.Rmd’ using rmarkdown 2026-08-04 11:10:47.757 R[48174:70953] XType: Using static font registry. *** caught segfault *** address 0x110, cause 'invalid permissions' *** caught segfault *** address 0x110, cause 'invalid permissions' *** caught segfault *** address 0x110, cause 'invalid permissions' *** caught segfault *** address 0x110, cause 'invalid permissions' Traceback: 1: RowCumsum(valid) 2: FindNeighbors(embedding, lib_i, pred_i, knn, exclusionRadius = exclusionRadius, validLib = validLib, libOverlap = idx$libOverlap, backend = backend, verbose = verbose) 3: SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, knn = knn, tau = tau, theta = th, exclusionRadius = exclusionRadius, embedded = embedded, validLib = validLib, noTime = noTime, ignoreNan = ignoreNan, backend = backend) 4: Traceback: 1: RowCumsum(valid) 2: FindNeighbors(embedding, lib_i, pred_i, knn, exclusionRadius = exclusionRadius, validLib = validLib, libOverlap = idx$libOverlap, backend = backend, verbose = verbose) 3: ComputeError(predictions$Observations, predictions$Predictions) SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, knn = knn, tau = tau, theta = th, exclusionRadius = exclusionRadius, embedded = embedded, validLib = validLib, noTime = noTime, ignoreNan = ignoreNan, backend = backend) 5: SweepRho(SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, knn = knn, tau = tau, theta = th, exclusionRadius = exclusionRadius, embedded = embedded, validLib = validLib, noTime = noTime, ignoreNan = ignoreNan, backend = backend)$predictions) 6: Traceback: 1: RowCumsum(valid) 4: ComputeError(predictions$Observations, predictions$Predictions) 5: FUN(X[[i]], ...) 7: SweepRho(SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, knn = knn, tau = tau, theta = th, exclusionRadius = exclusionRadius, embedded = embedded, validLib = validLib, noTime = noTime, lapply(X = S, FUN = FUN, ...) 8: ignoreNan = ignoreNan, backend = backend)$predictions)doTryCatch(return(expr), name, parentenv, handler) 6: FUN(X[[i]], ...) 7: lapply(X = S, FUN = FUN, ...) 8: 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e)doTryCatch(return(expr), name, parentenv, handler) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) 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") 2: FindNeighbors(embedding, lib_i, pred_i, knn, exclusionRadius = exclusionRadius, validLib = validLib, libOverlap = idx$libOverlap, backend = backend, if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " verbose = verbose) 3: msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { Traceback: cat(msg, file = outFile) SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, knn = knn, 1: 9: RowCumsum(valid)tryCatchOne(expr, names, parentenv, handlers[[1L]]) .Internal(printDeferredWarnings()) } 10: invisible(structure(msg, class = "try-error", condition = e)) tau = tau, theta = th, exclusionRadius = exclusionRadius, })tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") 12: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 13: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 14: FUN(X[[i]], ...) 15: lapply(seq_len(cores), inner.do) 16: parallel::mclapply(values, worker, mc.cores = cores, mc.preschedule = TRUE) if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") embedded = embedded, validLib = validLib, noTime = noTime, ignoreNan = ignoreNan, backend = backend) 4: }ComputeError(predictions$Observations, predictions$Predictions) 17: doTryCatch(return(expr), name, parentenv, handler) 18: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 19: tryCatchList(expr, classes, parentenv, handlers) 20: tryCatch(parallel::mclapply(values, worker, mc.cores = cores, mc.preschedule = TRUE), error = function(e) NULL) else prefix <- "Error : "21: SweepApply(theta, worker, numProcess) 2: 5: msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) {SweepRho(SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, FindNeighbors(embedding, lib_i, pred_i, knn, exclusionRadius = exclusionRadius, 22: validLib = validLib, libOverlap = idx$libOverlap, backend = backend, verbose = verbose) 3: SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, knn = knn, tau = tau, theta = th, exclusionRadius = exclusionRadius, embedded = embedded, validLib = validLib, noTime = noTime, ignoreNan = ignoreNan, backend = backend) 4: ComputeError(predictions$Observations, predictions$Predictions) 5: knn = knn, tau = tau, theta = th, exclusionRadius = exclusionRadius, embedded = embedded, validLib = validLib, noTime = noTime, ignoreNan = ignoreNan, backend = backend)$predictions)unlist(SweepApply(theta, worker, numProcess))SweepRho(SMap(dataFrame, columns, target, lib, pred, E = E, Tp = Tp, cat(msg, file = outFile)23: PredictNonlinear(dataFrame = Thrips, columns = "Thrips_imaginis", target = "Thrips_imaginis", lib = "1 73", pred = "1 73", 6: FUN(X[[i]], ...) 7: lapply(X = S, FUN = FUN, ...) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e)) E = E, showPlot = TRUE) knn = knn, tau = tau, theta = th, exclusionRadius = exclusionRadius, 24: eval(expr, envir) 25: embedded = embedded, validLib = validLib, noTime = noTime, eval(expr, envir) 8: doTryCatch(return(expr), name, parentenv, handler) }) ignoreNan = ignoreNan, backend = backend)$predictions) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 12: 6: FUN(X[[i]], ...) 10: tryCatchList(expr, classes, parentenv, handlers) 7: 11: 26: lapply(X = S, FUN = FUN, ...) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) tryCatch(expr, error = function(e) {try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 13: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 14: FUN(X[[i]], ...) 15: lapply(seq_len(cores), inner.do) 16: parallel::mclapply(values, worker, mc.cores = cores, mc.preschedule = TRUE) 17: doTryCatch(return(expr), name, parentenv, handler) 18: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 19: tryCatchList(expr, classes, parentenv, handlers) 20: tryCatch(parallel::mclapply(values, worker, mc.cores = cores, mc.preschedule = TRUE), error = function(e) NULL) 21: SweepApply(theta, worker, numProcess)10: withVisible(eval(expr, envir)) 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 tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) {22: sm <- strsplit(conditionMessage(e), "\n")[[1L]]unlist(SweepApply(theta, worker, numProcess)) call <- conditionCall(e) w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(lapply(X = S, FUN = FUN, ...), silent = TRUE) if (!is.null(call)) {23: PredictNonlinear(dataFrame = Thrips, columns = "Thrips_imaginis", target = "Thrips_imaginis", lib = "1 73", pred = "1 73", E = E, showPlot = TRUE) 24: eval(expr, envir) 25: eval(expr, envir) 27: withCallingHandlers(code, error = function (e) rlang::entrace(e), message = function (cnd) { if (identical(call[[1L]], quote(doTryCatch))) 13: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE)) 14: FUN(X[[i]], ...) 15: lapply(seq_len(cores), inner.do) 16: parallel::mclapply(values, worker, mc.cores = cores, mc.preschedule = TRUE) 17: call <- sys.call(-4L) watcher$capture_plot_and_output()doTryCatch(return(expr), name, parentenv, handler)26: 18: tryCatchOne(expr, names, parentenv, handlers[[1L]]) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") LONG <- 75LwithVisible(eval(expr, envir)) 27: withCallingHandlers(code, error = function (e) if (on_message$capture) {19: tryCatchList(expr, classes, parentenv, handlers) 20: watcher$push(cnd) sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b")tryCatch(parallel::mclapply(values, worker, mc.cores = cores, if (w > LONG) mc.preschedule = TRUE), error = function(e) NULL) } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) {rlang::entrace(e), message = function (cnd) if (getOption("warn") >= 2 || getOption("warn") < 0) { prefix <- paste0(prefix, "\n ") } return(){ watcher$capture_plot_and_output() if (on_message$capture) { } watcher$push(cnd) else prefix <- "Error : " } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) { watcher$capture_plot_and_output() msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) if (on_warning$capture) { if (getOption("warn") >= 2 || getOption("warn") < 0) { cnd <- sanitize_call(cnd)21: SweepApply(theta, worker, numProcess) watcher$push(cnd) } invisible(structure(msg, class = "try-error", condition = e))}) 12: } if (on_warning$silence) { invokeRestart("muffleWarning")22: }}, error = function (cnd) { watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), stop = invokeRestart("eval_stop"), error = NULL)})try(lapply(X = S, FUN = FUN, ...), silent = TRUE) 28: unlist(SweepApply(theta, worker, numProcess)) return() } watcher$capture_plot_and_output() if (on_warning$capture) { cnd <- sanitize_call(cnd) watcher$push(cnd)23: eval(call) } if (on_warning$silence) { invokeRestart("muffleWarning") }PredictNonlinear(dataFrame = Thrips, columns = "Thrips_imaginis", target = "Thrips_imaginis", lib = "1 73", pred = "1 73", E = E, showPlot = TRUE) }, error = function (cnd) { watcher$capture_plot_and_output()24: cnd <- sanitize_call(cnd)13: 29: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))eval(call) eval(expr, envir)30: watcher$push(cnd)with_handlers({14: 25: eval(expr, envir) 26: withVisible(eval(expr, envir)) FUN(X[[i]], ...) 15: lapply(seq_len(cores), inner.do) 16: parallel::mclapply(values, worker, mc.cores = cores, mc.preschedule = TRUE) 17: doTryCatch(return(expr), name, parentenv, handler) 18: tryCatchOne(expr, names, parentenv, handlers[[1L]])27: 19: tryCatchList(expr, classes, parentenv, handlers) 20: tryCatch(parallel::mclapply(values, worker, mc.cores = cores, mc.preschedule = TRUE), error = function(e) NULL) 21: withCallingHandlers(code, error = function (e) switch(on_error, continue = invokeRestart("eval_continue"), SweepApply(theta, worker, numProcess) 22: unlist(SweepApply(theta, worker, numProcess)) 23: PredictNonlinear(dataFrame = Thrips, columns = "Thrips_imaginis", target = "Thrips_imaginis", lib = "1 73", pred = "1 73", for (expr in tle$exprs) { stop = invokeRestart("eval_stop"), error = NULL)}) 28: eval(call)rlang::entrace(e), message = function (cnd) 29: { E = E, showPlot = TRUE) eval(call)24: watcher$capture_plot_and_output() if (on_message$capture) {eval(expr, envir) 25: eval(expr, envir) 26: ev <- withVisible(eval(expr, envir))30: watcher$push(cnd)withVisible(eval(expr, envir)) }with_handlers({ watcher$capture_plot_and_output() 27: if (on_message$silence) { for (expr in tle$exprs) { watcher$print_value(ev$value, ev$visible, envir) } ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers) 31: doWithOneRestart(return(expr), restart) withCallingHandlers(code, error = function (e) rlang::entrace(e), message = function (cnd) { watcher$capture_plot_and_output() if (on_message$capture) { watcher$push(cnd) } if (on_message$silence) { invokeRestart("muffleMessage") }32: withOneRestart(expr, restarts[[1L]]) 33: withRestartList(expr, restarts[-nr]) TRUE}, warning = function (cnd) }, handlers){ 31: doWithOneRestart(return(expr), restart) 32: if (getOption("warn") >= 2 || getOption("warn") < 0) { return() } invokeRestart("muffleMessage")withOneRestart(expr, restarts[[1L]]) }}, warning = function (cnd) 34: 33: doWithOneRestart(return(expr), restart){ if (getOption("warn") >= 2 || getOption("warn") < 0) { watcher$capture_plot_and_output()35: if (on_warning$capture) { return()withRestartList(expr, restarts[-nr])withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) cnd <- sanitize_call(cnd)34: watcher$push(cnd) } doWithOneRestart(return(expr), restart)36: }withRestartList(expr, restarts) watcher$capture_plot_and_output() if (on_warning$silence) { 35: invokeRestart("muffleWarning") }}, error = function (cnd) {37: if (on_warning$capture) {withRestarts(with_handlers({withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE) cnd <- sanitize_call(cnd) watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd)36: 38: watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), } if (on_warning$silence) { invokeRestart("muffleWarning")evaluate::evaluate(...) stop = invokeRestart("eval_stop"), error = NULL) withRestartList(expr, restarts)}) 39: }37: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))}, error = function (cnd) withRestarts(with_handlers({ {40: in_dir(input_dir(), expr) for (expr in tle$exprs) { watcher$capture_plot_and_output()28: 41: in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))) ev <- withVisible(eval(expr, envir))42: eng_r(options) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } cnd <- sanitize_call(cnd)eval(call) TRUE watcher$push(cnd) }, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE) switch(on_error, continue = invokeRestart("eval_continue"), 38: stop = invokeRestart("eval_stop"), error = NULL)43: })block_exec(params) 44: call_block(x) 45: process_group(group) evaluate::evaluate(...) 39: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, 28: 29: keep_message = if (is.numeric(options$message)) TRUE else options$message, eval(call) stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 29: eval(call)46: 30: with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir))eval(call) 0L else 2LwithCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) }, output_handler = knit_handlers(options$render, options)) pb$interrupt() watcher$capture_plot_and_output()30: watcher$print_value(ev$value, ev$visible, envir) } if (is_R_CMD_build() || is_R_CMD_check()) 40: with_handlers({in_dir(input_dir(), expr) TRUE}, handlers) for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } error <<- format(e) TRUE })}, handlers) 47: with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), 31: error = function(e) { if (progress && is.function(pb$interrupt)) doWithOneRestart(return(expr), restart) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global()))41: 31: doWithOneRestart(return(expr), restart)in_input_dir(evaluate(code, envir = env, new_device = FALSE, 32: withOneRestart(expr, restarts[[1L]])48: 32: xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), withOneRestart(expr, restarts[[1L]]) keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { setwd(wd) write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule())) 33: withRestartList(expr, restarts[-nr]) 34: doWithOneRestart(return(expr), restart) 35: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) keep_message = if (is.numeric(options$message)) TRUE else options$message, }, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc) 36: 33: withRestartList(expr, restarts[-nr]) 34: doWithOneRestart(return(expr), restart)withRestartList(expr, restarts) 35: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) stop_on_error = if (is.numeric(options$error)) options$error else {36: if (options$error && options$include) 37: withRestarts(with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir))withRestartList(expr, restarts) 0L watcher$capture_plot_and_output()37: withRestarts(with_handlers({ for (expr in tle$exprs) { watcher$print_value(ev$value, ev$visible, envir) } ev <- withVisible(eval(expr, envir))49: watcher$capture_plot_and_output()process_file(text, output) watcher$print_value(ev$value, ev$visible, envir) else 2L TRUE } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE) 50: 38: evaluate::evaluate(...)knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE) 51: }, output_handler = knit_handlers(options$render, options)))39: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, 38: evaluate::evaluate(...) 39: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options)) 40: output_dir = getwd(), ...)42: eng_r(options) 43: block_exec(params)52: vweave_rmarkdown(...) 53: 40: engine$weave(file, quiet = quiet, encoding = enc) 44: call_block(x) in_dir(input_dir(), expr) 45: in_dir(input_dir(), expr)process_group(group)41: in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, 46: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { 54: 41: keep_message = if (is.numeric(options$message)) TRUE else options$message, if (progress && is.function(pb$interrupt)) pb$interrupt() stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))) 42: eng_r(options) 43: block_exec(params) 44: call_block(x) 45: process_group(group) 46: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { error <<- format(e) }) 47: if (options$error && options$include) with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), 0L else 2L }, output_handler = knit_handlers(options$render, options))) 42: eng_r(options) 43: error = function(e) {block_exec(params) 44: doTryCatch(return(expr), name, parentenv, handler)call_block(x) if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }) if (progress && is.function(pb$interrupt)) 47: 45: with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), pb$interrupt() error = function(e) {process_group(group) if (is_R_CMD_build() || is_R_CMD_check()) 55: error <<- format(e)tryCatchOne(expr, names, parentenv, handlers[[1L]]) if (progress && is.function(pb$interrupt)) 46: }), list(rlang_trace_top_env = knit_global())) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())) 48: xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), 56: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) 48: tryCatchList(expr, classes, parentenv, handlers)xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), 57: tryCatch({ pb$interrupt() engine$weave(file, quiet = quiet, encoding = enc) error = function(e) { setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }) 47: error = function(e) { engine = engine) if (progress && is.function(pb$interrupt)) }with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), outputs <- c(outputs, output) error = function(e) { pb$interrupt() if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { setwd(wd)}, error = function(e) { if (progress && is.function(pb$interrupt)) write_utf8(res, output %n% stdout()) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())) thisOK <<- FALSE if (is_R_CMD_build() || is_R_CMD_check()) 48: fails <<- c(fails, file) message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))}) 58: tools::buildVignettes(dir = "/Volumes/Builds/packages/big-sur-arm64/results/4.5/rEDM.Rcheck/vign_test/rEDM", skip = TRUE, ser_elibs = "/Volumes/Temp/tmp/RtmphKyKFA/file80e12c1351b7.rds") paste0("\nQuitting from ", loc, if (!is.null(error)) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { paste0("\n", rule(), error, "\n", rule())) setwd(wd)xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), An irrecoverable exception occurred. R is aborting now ... error = function(e) {}, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc) 49: write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule())) if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { setwd(wd)process_file(text, output) 50: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet) 51: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...) 52: vweave_rmarkdown(...) 53: engine$weave(file, quiet = quiet, encoding = enc) 54: doTryCatch(return(expr), name, parentenv, handler) write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule()))}, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc) 49: process_file(text, output) 50: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet) 51: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)55: }, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc)tryCatchOne(expr, names, parentenv, handlers[[1L]]) 56: tryCatchList(expr, classes, parentenv, handlers) 57: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { 49: process_file(text, output) 50: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)52: vweave_rmarkdown(...) 53: engine$weave(file, quiet = quiet, encoding = enc) 54: doTryCatch(return(expr), name, parentenv, handler) 55: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 56: tryCatchList(expr, classes, parentenv, handlers) 57: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", 51: engine = engine) }rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...) 52: outputs <- c(outputs, output)}, error = function(e) {vweave_rmarkdown(...) thisOK <<- FALSE fails <<- c(fails, file) texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", engine = engine) } outputs <- c(outputs, output) message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", }, error = function(e) { thisOK <<- FALSE fails <<- c(fails, file) message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 53: engine$weave(file, quiet = quiet, encoding = enc) 54: doTryCatch(return(expr), name, parentenv, handler) 55: file, conditionMessage(e)))}) 58: tools::buildVignettes(dir = "/Volumes/Builds/packages/big-sur-arm64/results/4.5/rEDM.Rcheck/vign_test/rEDM", skip = TRUE, ser_elibs = "/Volumes/Temp/tmp/RtmphKyKFA/file80e12c1351b7.rds") An irrecoverable exception occurred. R is aborting now ... tryCatchOne(expr, names, parentenv, handlers[[1L]]) 56: tryCatchList(expr, classes, parentenv, handlers) file, conditionMessage(e)))}) 58: tools::buildVignettes(dir = "/Volumes/Builds/packages/big-sur-arm64/results/4.5/rEDM.Rcheck/vign_test/rEDM", skip = TRUE, ser_elibs = "/Volumes/Temp/tmp/RtmphKyKFA/file80e12c1351b7.rds") An irrecoverable exception occurred. R is aborting now ... 57: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", engine = engine) } outputs <- c(outputs, output)}, error = function(e) { thisOK <<- FALSE fails <<- c(fails, file) message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))}) 58: tools::buildVignettes(dir = "/Volumes/Builds/packages/big-sur-arm64/results/4.5/rEDM.Rcheck/vign_test/rEDM", skip = TRUE, ser_elibs = "/Volumes/Temp/tmp/RtmphKyKFA/file80e12c1351b7.rds") An irrecoverable exception occurred. R is aborting now ... Quitting from rEDM-tutorial.Rmd:466-469 [smap_thrips] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `data.frame()`: ! arguments imply differing number of rows: 15, 0 --- Backtrace: ▆ 1. └─rEDM::PredictNonlinear(...) 2. └─base::data.frame(Theta = theta, rho = rho) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'rEDM-tutorial.Rmd' failed with diagnostics: arguments imply differing number of rows: 15, 0 --- failed re-building ‘rEDM-tutorial.Rmd’ SUMMARY: processing the following file failed: ‘rEDM-tutorial.Rmd’ Error: Vignette re-building failed. Execution halted Flavor: r-oldrel-macos-arm64