##############################################################################
##############################################################################
###
### Running command:
###
### /Library/Frameworks/R.framework/Resources/bin/R CMD build --keep-empty-dirs --no-resave-data diggit
###
##############################################################################
##############################################################################
* checking for file ‘diggit/DESCRIPTION’ ... OK
* preparing ‘diggit’:
* checking DESCRIPTION meta-information ... OK
* installing the package to build vignettes
* creating vignettes ... ERROR
--- re-building ‘diggit.Rnw’ using Sweave
Loading required package: Biobase
Loading required package: BiocGenerics
Loading required package: generics
Attaching package: ‘generics’
The following objects are masked from ‘package:base’:
as.difftime, as.factor, as.ordered, intersect, is.element, setdiff,
setequal, union
Attaching package: ‘BiocGenerics’
The following objects are masked from ‘package:stats’:
IQR, mad, sd, var, xtabs
The following objects are masked from ‘package:base’:
Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
as.data.frame, basename, cbind, colnames, dirname, do.call,
duplicated, eval, evalq, get, grep, grepl, is.unsorted, lapply,
mapply, match, mget, order, paste, pmax, pmax.int, pmin, pmin.int,
rank, rbind, rownames, sapply, saveRDS, table, tapply, unique,
unsplit, which.max, which.min
Welcome to Bioconductor
Vignettes contain introductory material; view with
'browseVignettes()'. To cite Bioconductor, see
'citation("Biobase")', and for packages 'citation("pkgname")'.
*** caught segfault ***
address 0x110, cause 'invalid permissions'
*** caught segfault ***
address 0x110, cause 'invalid permissions'
*** caught segfault ***
address 0x110, cause 'invalid permissions'
Traceback:
1: rowVars(x1)
2: FUN(X[[i]], ...)
3: lapply(X = S, FUN = FUN, ...)
4: doTryCatch(return(expr), name, parentenv, handler)
5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
6: tryCatchList(expr, classes, parentenv, handlers)
7: 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))})
8: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
9: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
10: FUN(X[[i]], ...)
11: lapply(seq_len(cores), inner.do)
12: mclapply(1:per, function(i, x, y, repos) { expset <- cbind(x, y) repeat { sorder <- sample(ncol(expset), replace = repos) if (length(unique(sorder[1:ncol(x)])) > 1 & length(unique(sorder[-(1:ncol(x))])) > 1) break if (verbose) message("-", appendLF = FALSE) } x1 <- filterColMatrix(expset, sorder[1:ncol(x)]) y1 <- filterColMatrix(expset, sorder[-(1:ncol(x))]) largo <- rowSums(!is.na(x1)) largoy <- rowSums(!is.na(y1)) t <- ((rowMeans(x1, na.rm = TRUE) - rowMeans(y1, na.rm = TRUE))/sqrt(((largo -
*** caught segfault ***
address 0x110, cause 'invalid permissions'
Traceback:
1: rowVars(x1)
2: FUN(X[[i]], ...)
3: lapply(X = S, FUN = FUN, ...)
4: doTryCatch(return(expr), name, parentenv, handler)
5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
6: tryCatchList(expr, classes, parentenv, handlers)
7: 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) * rowVars(x1) + (largoy - 1) * rowVars(y1))/(largo + largoy - 2))/sqrt(1/largo + 1/largoy))[, 1] t <- qnorm(pt(abs(t), largo + largoy - 2, lower.tail = FALSE), lower.tail = FALSE) * sign(t) 1: rowVars(x1)
2: names(t) <- rownames(x) return(t)}, x = x, y = y, repos = repos, mc.cores = cores)
FUN(X[[i]], ...)
3: 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))})
8: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
9: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
10: FUN(X[[i]], ...)
11: lapply(seq_len(cores), inner.do)13: .local(x, ...)
14: lapply(X = S, FUN = FUN, ...)
4: doTryCatch(return(expr), name, parentenv, handler)
12: mclapply(1:per, function(i, x, y, repos) { expset <- cbind(x, y)ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores, verbose = verbose)
15: 5: ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores, verbose = verbose)
16: .local(x, ...) repeat { sorder <- sample(ncol(expset), replace = repos) if (length(unique(sorder[1:ncol(x)])) > 1 & length(unique(sorder[-(1:ncol(x))])) > 1) break if (verbose) message("-", appendLF = FALSE) } x1 <- filterColMatrix(expset, sorder[1:ncol(x)]) y1 <- filterColMatrix(expset, sorder[-(1:ncol(x))]) largo <- rowSums(!is.na(x1)) largoy <- rowSums(!is.na(y1)) t <- ((rowMeans(x1, na.rm = TRUE) - rowMeans(y1, na.rm = TRUE))/sqrt(((largo - 1) * rowVars(x1) + (largoy - 1) * rowVars(y1))/(largo + largoy - 2))/sqrt(1/largo + 1/largoy))[, 1] t <- qnorm(pt(abs(t), largo + largoy - 2, lower.tail = FALSE), lower.tail = FALSE) * sign(t) names(t) <- rownames(x) return(t)}, x = x, y = y, repos = repos, mc.cores = cores)
13: .local(x, ...)
14:
17: marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
18: marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
19: .local(x, ...)
20: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose)
21: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose)
22: .local(x, ...)
23: marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", tryCatchOne(expr, names, parentenv, handlers[[1L]]) cores = cores, verbose = FALSE)
24: marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", cores = cores, verbose = FALSE)
25: eval(expr, .GlobalEnv)
26: eval(expr, .GlobalEnv)
27: withVisible(eval(expr, .GlobalEnv))
28:
6: tryCatchList(expr, classes, parentenv, handlers)
7: doTryCatch(return(expr), name, parentenv, handler)
29: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) {tryCatchOne(expr, names, parentenv, handlers[[1L]])ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores,
30: tryCatchList(expr, classes, parentenv, handlers) verbose = verbose) 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))
15: ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores, verbose = verbose)
16: .local(x, ...)
17: marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
18: marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
19: .local(x, ...)
20: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) 31: mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : "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))})
32: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
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))})
8: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
9: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
10: FUN(X[[i]], ...)
11: lapply(seq_len(cores), inner.do)
12: mclapply(1:per, function(i, x, y, repos) { expset <- cbind(x, y) repeat { sorder <- sample(ncol(expset), replace = repos)33: evalFunc(ce, options)
34: tryCatchList(expr, classes, parentenv, handlers)
35: tryCatch(evalFunc(ce, options), finally = { cat("\n") sink()})
36: driver$runcode(drobj, chunk, chunkopts)
37: utils::Sweave(...)
38: engine$weave(file, quiet = quiet, encoding = enc)
39: doTryCatch(return(expr), name, parentenv, handler)
40: tryCatchOne(expr, names, parentenv, handlers[[1L]])
21: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose)
22: .local(x, ...)
23: marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", cores = cores, verbose = FALSE)
24: marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", cores = cores, verbose = FALSE)
25: eval(expr, .GlobalEnv)
26: eval(expr, .GlobalEnv)
27: withVisible(eval(expr, .GlobalEnv))
Traceback:
1: rowVars(x1)
2: FUN(X[[i]], ...)
3: lapply(X = S, FUN = FUN, ...)
4: doTryCatch(return(expr), name, parentenv, handler)
5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
6: tryCatchList(expr, classes, parentenv, handlers)
7: if (length(unique(sorder[1:ncol(x)])) > 1 & length(unique(sorder[-(1:ncol(x))])) > 1) 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))})
8: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
9: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
10: FUN(X[[i]], ...)
11: lapply(seq_len(cores), inner.do)
12: mclapply(1:per, function(i, x, y, repos) { expset <- cbind(x, y) repeat { sorder <- sample(ncol(expset), replace = repos)
if (length(unique(sorder[1:ncol(x)])) > 1 & length(unique(sorder[-(1:ncol(x))])) > 1) break if (verbose) message("-", appendLF = FALSE) } x1 <- filterColMatrix(expset, sorder[1:ncol(x)]) y1 <- filterColMatrix(expset, sorder[-(1:ncol(x))]) largo <- rowSums(!is.na(x1)) largoy <- rowSums(!is.na(y1)) t <- ((rowMeans(x1, na.rm = TRUE) - rowMeans(y1, na.rm = TRUE))/sqrt(((largo - 1) * rowVars(x1) + (largoy - 1) * rowVars(y1))/(largo + largoy - 2))/sqrt(1/largo + 1/largoy))[, 1] t <- qnorm(pt(abs(t), largo + largoy - 2, lower.tail = FALSE), lower.tail = FALSE) * sign(t) names(t) <- rownames(x) return(t)}, x = x, y = y, repos = repos, mc.cores = cores)
13: .local(x, ...)
14: ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores, verbose = verbose) break if (verbose) message("-", appendLF = FALSE) } x1 <- filterColMatrix(expset, sorder[1:ncol(x)]) y1 <- filterColMatrix(expset, sorder[-(1:ncol(x))]) largo <- rowSums(!is.na(x1))
15: ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores, verbose = verbose)
16: 28: largoy <- rowSums(!is.na(y1)).local(x, ...)41: t <- ((rowMeans(x1, na.rm = TRUE) - rowMeans(y1, na.rm = TRUE))/sqrt(((largo - doTryCatch(return(expr), name, parentenv, handler)
17: marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
18: marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
19: .local(x, ...)
20: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose)
21: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, 1) * rowVars(x1) + (largoy - 1) * rowVars(y1))/(largo +
29: tryCatchOne(expr, names, parentenv, handlers[[1L]])
30: tryCatchList(expr, classes, parentenv, handlers)
31: 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")tryCatchList(expr, classes, parentenv, handlers)
42: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) largoy - 2))/sqrt(1/largo + 1/largoy))[, 1] t <- qnorm(pt(abs(t), largo + largoy - 2, lower.tail = FALSE), lower.tail = FALSE) * sign(t) names(t) <- rownames(x) return(t)}, x = x, y = y, repos = repos, mc.cores = cores)
13: .local(x, ...)
14: ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores, verbose = verbose)
output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) {15: 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))})
32: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
33: evalFunc(ce, options)
34: tryCatchList(expr, classes, parentenv, handlers)ttestNull(x, y, repos = FALSE, seed = 0, per = per, cores = cores, verbose = verbose)
16: .local(x, ...)
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)))})
mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose)
17: 43: tools::buildVignettes(dir = ".", tangle = TRUE)
An irrecoverable exception occurred. R is aborting now ...
marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
18: marina(exprs(x)[, pos1], exprs(x)[, pos2], regulon = regulon, per = per, cores = cores, verbose = verbose)
19: .local(x, ...)
20: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose)
21:
22: .local(x, ...)
23: 35: marina(exprs(x), pheno = pheno, group1 = group1, group2 = group2, mu = mu, regulon = regulon, per = per, cores = cores, verbose = verbose)
22: .local(x, ...)
23: marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", cores = cores, verbose = FALSE)
24: marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", cores = cores, verbose = FALSE)
25: eval(expr, .GlobalEnv)
26: eval(expr, .GlobalEnv)
27: withVisible(eval(expr, .GlobalEnv))
28: doTryCatch(return(expr), name, parentenv, handler)
marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", cores = cores, verbose = FALSE)
24: marina(dobj, pheno = "subtype", group1 = "MES", group2 = "PN", 29: tryCatch(evalFunc(ce, options), finally = { cat("\n") sink()})
36: driver$runcode(drobj, chunk, chunkopts)
37: utils::Sweave(...)
38: engine$weave(file, quiet = quiet, encoding = enc)
39: doTryCatch(return(expr), name, parentenv, handler)
40: tryCatchOne(expr, names, parentenv, handlers[[1L]])
41: tryCatchList(expr, classes, parentenv, handlers)
42: cores = cores, verbose = FALSE)
25: eval(expr, .GlobalEnv)
26: eval(expr, .GlobalEnv)
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)27: withVisible(eval(expr, .GlobalEnv))
28: doTryCatch(return(expr), name, parentenv, handler)
tryCatchOne(expr, names, parentenv, handlers[[1L]])
30: tryCatchList(expr, classes, parentenv, handlers)
31: 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") output <- find_vignette_product(name, by = "texi2pdf", .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))})
32: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
33: evalFunc(ce, options)
34: tryCatchList(expr, classes, parentenv, handlers)
35: tryCatch(evalFunc(ce, options), finally = { cat("\n") sink()})
36: driver$runcode(drobj, chunk, chunkopts)
37: engine = engine) } outputs <- c(outputs, output)}, error = function(e) { thisOK <<- FALSEutils::Sweave(...)29: tryCatchOne(expr, names, parentenv, handlers[[1L]])
30: tryCatchList(expr, classes, parentenv, handlers)
31: 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) fails <<- c(fails, file)
38: engine$weave(file, quiet = quiet, encoding = enc)
39: prefix <- paste0(prefix, "\n ") }doTryCatch(return(expr), name, parentenv, handler) message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
else prefix <- "Error : "40: file, conditionMessage(e)))})
43: tools::buildVignettes(dir = ".", tangle = TRUE)
An irrecoverable exception occurred. R is aborting now ...
tryCatchOne(expr, names, parentenv, handlers[[1L]])
41: tryCatchList(expr, classes, parentenv, handlers)
42: 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)))})
43: tools::buildVignettes(dir = ".", tangle = TRUE)
An irrecoverable exception occurred. R is aborting now ...
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))})
32: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
33: evalFunc(ce, options)
34: tryCatchList(expr, classes, parentenv, handlers)
35: tryCatch(evalFunc(ce, options), finally = { cat("\n") sink()})
36: driver$runcode(drobj, chunk, chunkopts)
37: utils::Sweave(...)
38: engine$weave(file, quiet = quiet, encoding = enc)
39: doTryCatch(return(expr), name, parentenv, handler)
40: tryCatchOne(expr, names, parentenv, handlers[[1L]])
41: tryCatchList(expr, classes, parentenv, handlers)
42: 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)))})
43: tools::buildVignettes(dir = ".", tangle = TRUE)
An irrecoverable exception occurred. R is aborting now ...
Warning in mclapply(1:per, function(i, x, y, repos) { :
scheduled cores 1, 2, 3, 4 did not deliver results, all values of the jobs will be affected
Error: processing vignette 'diggit.Rnw' failed with diagnostics:
chunk 10
Error in `colnames<-`(`*tmp*`, value = 1:1000) :
attempt to set 'colnames' on an object with less than two dimensions
--- failed re-building ‘diggit.Rnw’
SUMMARY: processing the following file failed:
‘diggit.Rnw’
Error: Vignette re-building failed.
Execution halted
