* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/BMS.Rcheck’ * using R Under development (unstable) (2022-04-25 r82252) * using platform: x86_64-pc-linux-gnu (64-bit) * using session charset: UTF-8 * using option ‘--no-stop-on-test-error’ * checking for file ‘BMS/DESCRIPTION’ ... OK * checking extension type ... Package * this is package ‘BMS’ version ‘0.3.4’ * checking package namespace information ... OK * checking package dependencies ... OK * checking if this is a source package ... OK * checking if there is a namespace ... OK * checking for executable files ... OK * checking for hidden files and directories ... OK * checking for portable file names ... OK * checking for sufficient/correct file permissions ... OK * checking whether package ‘BMS’ can be installed ... [13s/67s] OK * checking package directory ... OK * checking ‘build’ directory ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... OK * checking for left-over files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking R files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... OK * checking whether the package can be loaded with stated dependencies ... OK * checking whether the package can be unloaded cleanly ... OK * checking whether the namespace can be loaded with stated dependencies ... OK * checking whether the namespace can be unloaded cleanly ... OK * checking loading without being on the library search path ... OK * checking use of S3 registration ... OK * checking dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... [29s/179s] OK * checking Rd files ... OK * checking Rd metadata ... OK * checking Rd line widths ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking Rd contents ... OK * checking for unstated dependencies in examples ... OK * checking contents of ‘data’ directory ... OK * checking data for non-ASCII characters ... OK * checking data for ASCII and uncompressed saves ... OK * checking sizes of PDF files under ‘inst/doc’ ... OK * checking installed files from ‘inst/doc’ ... OK * checking files in ‘vignettes’ ... OK * checking examples ... [4s/22s] ERROR Running examples in ‘BMS-Ex.R’ failed The error most likely occurred in: > ### Name: BMS-package > ### Title: Bayesian Model Sampling 0.3.4 > ### Aliases: BMS-package BMS > ### Keywords: package > > ### ** Examples > > data(datafls) > mfls =bms(X.data=datafls,burn=1000,iter=9000,nmodel=100) ----------- FAILURE REPORT -------------- --- failure: length > 1 in coercion to logical --- --- srcref --- : --- package (from environment) --- BMS --- call from context --- postad.reg.names(X.data) --- call from argument --- is.null(colnames(X.data)[-1]) || colnames(X.data)[-1] == "" --- R stacktrace --- where 1: postad.reg.names(X.data) where 2: .post.calc(gprior.info, add.otherstats, k.vec, null.count, X.data, topmods, b1mo, b2mo, iter, burn, inccount, models.visited, K, N, msize, timed, cumsumweights, mcmc, possign) where 3: bms(X.data = datafls, burn = 1000, iter = 9000, nmodel = 100) --- value of length: 41 type: logical --- [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE [37] FALSE FALSE FALSE FALSE FALSE --- function from context --- function (X.data) { if (is.null(colnames(X.data)[-1]) || colnames(X.data)[-1] == "") { reg.names <- paste("beta", 1:K) } else { reg.names = colnames(X.data)[-1] } return(reg.names) } --- function search by body --- ----------- END OF FAILURE REPORT -------------- Fatal error: length > 1 in coercion to logical * checking for unstated dependencies in vignettes ... OK * checking package vignettes in ‘inst/doc’ ... OK * checking re-building of vignette outputs ... [2s/11s] ERROR Error(s) in re-building vignettes: --- re-building ‘bms.Rnw’ using Sweave ----------- FAILURE REPORT -------------- --- failure: length > 1 in coercion to logical --- --- srcref --- : --- package (from environment) --- BMS --- call from context --- postad.reg.names(X.data) --- call from argument --- is.null(colnames(X.data)[-1]) || colnames(X.data)[-1] == "" --- R stacktrace --- where 1: postad.reg.names(X.data) where 2: .post.calc(gprior.info, add.otherstats, k.vec, null.count, X.data, topmods, b1mo, b2mo, iter, burn, inccount, models.visited, K, N, msize, timed, cumsumweights, mcmc, possign) where 3: bms(attitude, mprior = "uniform", g = "UIP", user.int = F) where 4: eval(expr, .GlobalEnv) where 5: eval(expr, .GlobalEnv) where 6: withVisible(eval(expr, .GlobalEnv)) where 7: doTryCatch(return(expr), name, parentenv, handler) where 8: tryCatchOne(expr, names, parentenv, handlers[[1L]]) where 9: tryCatchList(expr, classes, parentenv, handlers) where 10: 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)) }) where 11: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE) where 12: evalFunc(ce, options) where 13: tryCatchList(expr, classes, parentenv, handlers) where 14: tryCatch(evalFunc(ce, options), finally = { cat("\n") sink() }) where 15: driver$runcode(drobj, chunk, chunkopts) where 16: utils::Sweave(...) where 17: engine$weave(file, quiet = quiet, encoding = enc) where 18: doTryCatch(return(expr), name, parentenv, handler) where 19: tryCatchOne(expr, names, parentenv, handlers[[1L]]) where 20: tryCatchList(expr, classes, parentenv, handlers) where 21: 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))) }) where 22: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-LENGTH1/BMS.Rcheck/vign_test/BMS") --- value of length: 6 type: logical --- [1] FALSE FALSE FALSE FALSE FALSE FALSE --- function from context --- function (X.data) { if (is.null(colnames(X.data)[-1]) || colnames(X.data)[-1] == "") { reg.names <- paste("beta", 1:K) } else { reg.names = colnames(X.data)[-1] } return(reg.names) } --- function search by body --- ----------- END OF FAILURE REPORT -------------- Fatal error: length > 1 in coercion to logical * checking PDF version of manual ... OK * checking for non-standard things in the check directory ... OK * checking for detritus in the temp directory ... OK * DONE Status: 2 ERRORs See ‘/data/gannet/ripley/R/packages/tests-LENGTH1/BMS.Rcheck/00check.log’ for details. Command exited with non-zero status 1 Time 8:40.53, 86.36 + 8.52