Error(s) in re-building vignettes:
  ...
--- re-building 'GNE-howto.Rnw' using Sweave
Loading required package: alabama
Loading required package: numDeriv
Loading required package: nleqslv
Loading required package: BB
Loading required package: SQUAREM
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
GNE
 --- call from context --- 
GNE.nseq(z0, dimx, dimlam, grobj = grobj, myarg, heobj = heobj, 
    myarg, constr = g, grconstr = grg, heconstr = heg, compl = phiFB, 
    gcompla = GrAphiFB, gcomplb = GrBphiFB, method = "Newton", 
    control = list(trace = 0))
 --- call from argument --- 
if (class(test.try) == "try-error") return(list(par = NA, value = NA, 
    counts = NA, iter = NA, code = 100, message = "Can't evaluate Jac Phi(init).", 
    fvec = NA))
 --- R stacktrace ---
where 1: GNE.nseq(z0, dimx, dimlam, grobj = grobj, myarg, heobj = heobj, 
    myarg, constr = g, grconstr = grg, heconstr = heg, compl = phiFB, 
    gcompla = GrAphiFB, gcomplb = GrBphiFB, method = "Newton", 
    control = list(trace = 0))
where 2: eval(expr, .GlobalEnv)
where 3: eval(expr, .GlobalEnv)
where 4: withVisible(eval(expr, .GlobalEnv))
where 5: doTryCatch(return(expr), name, parentenv, handler)
where 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 7: tryCatchList(expr, classes, parentenv, handlers)
where 8: 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 9: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 10: evalFunc(ce, options)
where 11: tryCatchList(expr, classes, parentenv, handlers)
where 12: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 13: driver$runcode(drobj, chunk, chunkopts)
where 14: utils::Sweave(...)
where 15: engine$weave(file, quiet = quiet, encoding = enc)
where 16: doTryCatch(return(expr), name, parentenv, handler)
where 17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 18: tryCatchList(expr, classes, parentenv, handlers)
where 19: 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 20: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/GNE.Rcheck/vign_test/GNE", 
    ser_elibs = "/tmp/RtmpFx2xtG/file3b8e4500131b.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (init, dimx, dimlam, grobj, arggrobj, heobj, argheobj, 
    constr, argconstr, grconstr, arggrconstr, heconstr, argheconstr, 
    compl, gcompla, gcomplb, argcompl, dimmu, joint, argjoint, 
    grjoint, arggrjoint, hejoint, arghejoint, method = "default", 
    control = list(), silent = TRUE, ...) 
{
    if (method == "default") 
        method <- "Newton"
    argtest1 <- testargfunSSR(init, dimx, dimlam, grobj, arggrobj, 
        constr, argconstr, grconstr, arggrconstr, compl, argcompl, 
        dimmu, joint, argjoint, grjoint, arggrjoint)
    test.try <- try(funSSR(init, dimx, dimlam, grobj, arggrobj, 
        constr, argconstr, grconstr, arggrconstr, compl, argcompl, 
        dimmu, joint, argjoint, grjoint, arggrjoint), silent = silent)
    if (class(test.try) == "try-error") 
        return(list(par = NA, value = NA, counts = NA, iter = NA, 
            code = 100, message = "Can't evalate Phi(init).", 
            fvec = NA))
    if (any(is.nan(test.try)) || any(is.infinite(test.try))) 
        return(list(par = NA, value = NA, counts = NA, iter = NA, 
            code = 100, message = "Phi(init) has infinite or NaN values.", 
            fvec = NA))
    argtest2 <- testargjacSSR(init, dimx, dimlam, heobj, argheobj, 
        constr, argconstr, grconstr, arggrconstr, heconstr, argheconstr, 
        gcompla, gcomplb, argcompl, dimmu, joint, argjoint, grjoint, 
        arggrjoint, hejoint, arghejoint)
    test.try <- try(jacSSR(init, dimx, dimlam, heobj, argheobj, 
        constr, argconstr, grconstr, arggrconstr, heconstr, argheconstr, 
        gcompla, gcomplb, argcompl, dimmu, joint, argjoint, grjoint, 
        arggrjoint, hejoint, arghejoint), silent = silent)
    if (class(test.try) == "try-error") 
        return(list(par = NA, value = NA, counts = NA, iter = NA, 
            code = 100, message = "Can't evaluate Jac Phi(init).", 
            fvec = NA))
    if (any(is.nan(test.try)) || any(is.infinite(test.try))) 
        return(list(par = NA, value = NA, counts = NA, iter = NA, 
            code = 100, message = "Jac Phi(init) has infinite or NaN values.", 
            fvec = NA))
    myfunSSR <- function(x, argfun, argjac) evalwitharglist(funSSR, 
        x, argfun)
    myjacSSR <- function(x, argfun, argjac) evalwitharglist(jacSSR, 
        x, argjac)
    arg1 <- list(argtest1$dimx, argtest1$dimlam, argtest1$grobj, 
        argtest1$arggrobj, argtest1$constr, argtest1$argconstr, 
        argtest1$grconstr, argtest1$arggrconstr, argtest1$compl, 
        argtest1$argcompl, argtest1$dimmu, argtest1$joint, argtest1$argjoint, 
        argtest1$grjoint, argtest1$arggrjoint)
    arg2 <- list(argtest2$dimx, argtest2$dimlam, argtest2$heobj, 
        argtest2$argheobj, argtest2$constr, argtest2$argconstr, 
        argtest2$grconstr, argtest2$arggrconstr, argtest2$heconstr, 
        argtest2$argheconstr, argtest2$gcompla, argtest2$gcomplb, 
        argtest2$argcompl, argtest2$dimmu, argtest2$joint, argtest2$argjoint, 
        argtest2$grjoint, argtest2$arggrjoint, argtest2$hejoint, 
        argtest2$arghejoint)
    if (!silent) 
        print("init completed.")
    res <- nseq(init, myfunSSR, myjacSSR, argfun = arg1, argjac = arg2, 
        method = method, control = control, silent = silent, 
        ...)
    class(res) <- "GNE"
    if (!silent) 
        print("computation completed.")
    res
}
<bytecode: 0x13b5d70>
<environment: namespace:GNE>
 --- function search by body ---
Function GNE.nseq in namespace GNE has this body.
 ----------- END OF FAILURE REPORT -------------- 

Error: processing vignette 'GNE-howto.Rnw' failed with diagnostics:
 chunk 4 (label = testGNE) 
Error in if (class(test.try) == "try-error") return(list(par = NA, value = NA,  : 
  the condition has length > 1

--- failed re-building 'GNE-howto.Rnw'

SUMMARY: processing the following file failed:
  'GNE-howto.Rnw'

Error: Vignette re-building failed.
Execution halted