Error(s) in re-building vignettes:
  ...
--- re-building 'funwithfunload.Snw' using Sweave
--- finished re-building 'funwithfunload.Snw'

--- re-building 'widals.Snw' using Sweave
Loading required package: snowfall
Loading required package: snow
snowfall 1.84-6.1 initialized (using snow 0.4-3): parallel execution on 2 CPUs.

Library widals loaded in cluster.

Library widals loaded in cluster.

 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
widals
 --- call from context --- 
H.als.b(Z = Z, Hs = Hs, Ht = Ht, Hst.ls = Hst.ls, rho = rho, 
    reg = reg, b.lag = b.lag, Hs0 = NULL, Ht0 = NULL, Hst0.ls = NULL)
 --- call from argument --- 
if (class(inv.LHH) != "try=error") {
    inv.LHH <- inv.LHH
} else {
    inv.LHH <- matrix(0, d, d)
}
 --- R stacktrace ---
where 1: H.als.b(Z = Z, Hs = Hs, Ht = Ht, Hst.ls = Hst.ls, rho = rho, 
    reg = reg, b.lag = b.lag, Hs0 = NULL, Ht0 = NULL, Hst0.ls = NULL)
where 2: Hals.snow(jj, Z = Z, Hs = Hs, Ht = Ht, Hst.ls = Hst.ls, b.lag = b.lag, 
    GP.mx = GP.mx)
where 3: FUN.MH(1, GP.mx = GP.mx, X = X)
where 4: MSS.snow(FUN.source, NA, p.ndx.ls, f.d, sds.mx = sds.mx, k.glob, 
    k.loc.coef = 7, X = NULL)
where 5: eval(expr, .GlobalEnv)
where 6: eval(expr, .GlobalEnv)
where 7: withVisible(eval(expr, .GlobalEnv))
where 8: doTryCatch(return(expr), name, parentenv, handler)
where 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 10: tryCatchList(expr, classes, parentenv, handlers)
where 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)[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 12: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 13: evalFunc(ce, options)
where 14: tryCatchList(expr, classes, parentenv, handlers)
where 15: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 16: driver$runcode(drobj, chunk, chunkopts)
where 17: utils::Sweave(...)
where 18: engine$weave(file, quiet = quiet, encoding = enc)
where 19: doTryCatch(return(expr), name, parentenv, handler)
where 20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 21: tryCatchList(expr, classes, parentenv, handlers)
where 22: 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)
    }
}, error = function(e) {
    OK <<- FALSE
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 23: tools:::.buildOneVignette("widals.Snw", "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/widals.Rcheck/vign_test/widals", 
    TRUE, FALSE, "widals", "", "/tmp/RtmpdKn1Tm/file4f4d1331d4ba.rds")

 --- value of length: 2 type: logical ---
[1] TRUE TRUE
 --- function from context --- 
function (Z, Hs, Ht, Hst.ls, rho, reg, b.lag = -1, Hs0 = NULL, 
    Ht0 = NULL, Hst0.ls = NULL) 
{
    tau <- nrow(Z)
    n <- ncol(Z)
    Z.als <- matrix(NA, tau, n)
    if (is.null(Hs)) {
        use.Hs <- FALSE
        d.s <- 0
    }
    else {
        use.Hs <- TRUE
        d.s <- ncol(Hs)
    }
    if (is.null(Ht)) {
        use.Ht <- FALSE
        d.t <- 0
    }
    else {
        use.Ht <- TRUE
        d.t <- ncol(Ht)
    }
    if (is.null(Hst.ls)) {
        use.Hst.ls <- FALSE
        d.st <- 0
    }
    else {
        use.Hst.ls <- TRUE
        d.st <- ncol(Hst.ls[[1]])
    }
    d <- d.s + d.t + d.st
    B <- matrix(0, tau, d)
    reg.mx <- diag(reg, d)
    LHH <- 0
    LHy <- 0
    g <- 1
    use.H0 <- !is.null(Hs0) | !is.null(Ht0) | !is.null(Hst0.ls)
    if (use.H0) {
        if (!is.null(Hs0)) {
            n0 <- nrow(Hs0)
            Z.als.0 <- matrix(NA, tau, n0)
        }
        else {
            n0 <- nrow(Hst0.ls[[1]])
        }
    }
    low.ndx <- max(1, 1 - b.lag)
    top.ndx <- min(tau, tau - b.lag)
    for (i in low.ndx:top.ndx) {
        if (use.Ht) {
            this.Ht.mx <- matrix(Ht[i, ], n, d.t, byrow = TRUE)
        }
        else {
            this.Ht.mx <- NULL
        }
        this.H <- cbind(Hs, this.Ht.mx, Hst.ls[[i]])
        if (use.H0) {
            if (use.Ht) {
                this.Ht0.mx <- matrix(Ht0[i, ], n0, d.t, byrow = TRUE)
            }
            else {
                this.Ht0.mx <- NULL
            }
            this.H0 <- cbind(Hs0, this.Ht0.mx, Hst0.ls[[i]])
        }
        this.HH <- crossprod(this.H)
        this.Hy <- crossprod(this.H, Z[i, ])
        LHH <- LHH + g * (this.HH - LHH)
        LHy <- LHy + g * (this.Hy - LHy)
        inv.LHH <- try(solve(LHH + reg.mx), silent = TRUE)
        if (class(inv.LHH) != "try=error") {
            inv.LHH <- inv.LHH
        }
        else {
            inv.LHH <- matrix(0, d, d)
        }
        B[i, ] <- inv.LHH %*% LHy
        Z.als[i, ] <- B[i + b.lag, ] %*% t(this.H)
        if (use.H0) {
            Z.als.0[i, ] <- B[i + b.lag, ] %*% t(this.H0)
        }
        else {
            Z.als.0 <- NULL
        }
        g <- (g + rho)/(g + rho + 1)
    }
    return(list(Z.hat = Z.als, B = B, Z0.hat = Z.als.0, inv.LHH = inv.LHH, 
        ALS.g = g))
}
<bytecode: 0x2a67fc0>
<environment: namespace:widals>
 --- function search by body ---
Function H.als.b in namespace widals has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1
SUMMARY: processing the following file failed:
  'widals.Snw'

Error: Vignette re-building failed.
Execution halted