Error(s) in re-building vignettes:
  ...
--- re-building ‘jstable.Rmd’ using rmarkdown
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
jstable
 --- call from context --- 
glmshow.display(glm_gaussian, decimal = 2)
 --- call from argument --- 
if (class(fix.all.unlist) == "character") {
    fix.all.unlist <- t(data.frame(fix.all.unlist))
}
 --- R stacktrace ---
where 1: glmshow.display(glm_gaussian, decimal = 2)
where 2: eval(expr, envir, enclos)
where 3: eval(expr, envir, enclos)
where 4: withVisible(eval(expr, envir, enclos))
where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, 
    error = eHandler, message = mHandler)
where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, 
    enclos)), warning = wHandler, error = eHandler, message = mHandler))
where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, 
    envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos, 
    debug = debug, last = i == length(out), use_try = stop_on_error != 
        2L, keep_warning = keep_warning, keep_message = keep_message, 
    output_handler = output_handler, include_timing = include_timing)
where 9: evaluate::evaluate(...)
where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning), 
    keep_message = !isFALSE(options$message), stop_on_error = if (options$error && 
        options$include) 0L else 2L, output_handler = knit_handlers(options$render, 
        options))
where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE, 
    keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message), 
    stop_on_error = if (options$error && options$include) 0L else 2L, 
    output_handler = knit_handlers(options$render, options)))
where 12: block_exec(params)
where 13: call_block(x)
where 14: process_group.block(group)
where 15: process_group(group)
where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), 
    error = function(e) {
        setwd(wd)
        cat(res, sep = "\n", file = output %n% "")
        message("Quitting from lines ", paste(current_lines(i), 
            collapse = "-"), " (", knit_concord$get("infile"), 
            ") ")
    })
where 17: process_file(text, output)
where 18: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet, 
    encoding = encoding)
where 19: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), 
    ...)
where 20: vweave_rmarkdown(...)
where 21: engine$weave(file, quiet = quiet, encoding = enc)
where 22: doTryCatch(return(expr), name, parentenv, handler)
where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 24: tryCatchList(expr, classes, parentenv, handlers)
where 25: 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 26: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/jstable.Rcheck/vign_test/jstable", 
    ser_elibs = "/home/hornik/tmp/scratch/Rtmp6EGUPn/file5a631f3ee00a.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (glm.object, decimal = 2) 
{
    model <- glm.object
    if (!any(class(model) %in% c("lm", "glm"))) {
        stop("Model not from  GLM")
    }
    xs <- attr(model$terms, "term.labels")
    y <- names(model$model)[1]
    gaussianT <- ifelse(length(grep("gaussian", model$family)) == 
        1, T, F)
    data <- model$data
    if (length(xs) == 0) {
        stop("No independent variable")
    }
    else if (length(xs) == 1) {
        uni <- data.frame(coefNA(stats::glm(as.formula(paste(y, 
            " ~ ", xs)), data = data, family = model$family)))[-1, 
            ]
        rn.uni <- lapply(list(uni), rownames)
        if (gaussianT) {
            summ <- paste(round(uni[, 1], decimal), " (", round(uni[, 
                1] - 1.96 * uni[, 2], decimal), ",", round(uni[, 
                1] + 1.96 * uni[, 2], decimal), ")", sep = "")
            uni.res <- matrix(cbind(summ, ifelse(uni[, 4] <= 
                0.001, "< 0.001", as.character(round(uni[, 4], 
                decimal + 1)))), nrow = nrow(uni))
            colnames(uni.res) <- c(paste("Coeff.(", 100 - 100 * 
                0.05, "%CI)", sep = ""), "P value")
        }
        else {
            summ <- paste(round(exp(uni[, 1]), decimal), " (", 
                round(exp(uni[, 1] - 1.96 * uni[, 2]), decimal), 
                ",", round(exp(uni[, 1] + 1.96 * uni[, 2]), decimal), 
                ")", sep = "")
            uni.res <- matrix(cbind(summ, ifelse(uni[, 4] <= 
                0.001, "< 0.001", as.character(round(uni[, 4], 
                decimal + 1)))), nrow = nrow(uni))
            colnames(uni.res) <- c(paste("OR.(", 100 - 100 * 
                0.05, "%CI)", sep = ""), "P value")
        }
        rownames(uni.res) <- rownames(uni)
        res <- uni.res
    }
    else {
        uni <- lapply(xs, function(v) {
            data.frame(coefNA(stats::glm(as.formula(paste(y, 
                " ~ ", v)), data = data, family = model$family)))[-1, 
                ]
        })
        rn.uni <- lapply(uni, rownames)
        uni <- Reduce(rbind, uni)
        if (gaussianT) {
            summ <- paste(round(uni[, 1], decimal), " (", round(uni[, 
                1] - 1.96 * uni[, 2], decimal), ",", round(uni[, 
                1] + 1.96 * uni[, 2], decimal), ")", sep = "")
            uni.res <- t(rbind(summ, ifelse(uni[, 4] <= 0.001, 
                "< 0.001", as.character(round(uni[, 4], decimal + 
                  1)))))
            colnames(uni.res) <- c(paste("crude coeff.(", 100 - 
                100 * 0.05, "%CI)", sep = ""), "crude P value")
            rownames(uni.res) <- rownames(uni)
            mul <- coefNA(model)[-1, ]
            mul.summ <- paste(round(mul[, 1], decimal), " (", 
                round(mul[, 1] - 1.96 * mul[, 2], decimal), ",", 
                round(mul[, 1] + 1.96 * mul[, 2], decimal), ")", 
                sep = "")
            mul.res <- t(rbind(mul.summ, ifelse(mul[, 4] <= 0.001, 
                "< 0.001", as.character(round(mul[, 4], decimal + 
                  1)))))
            colnames(mul.res) <- c(paste("adj. coeff.(", 100 - 
                100 * 0.05, "%CI)", sep = ""), "adj. P value")
        }
        else {
            summ <- paste(round(exp(uni[, 1]), decimal), " (", 
                round(exp(uni[, 1] - 1.96 * uni[, 2]), decimal), 
                ",", round(exp(uni[, 1] + 1.96 * uni[, 2]), decimal), 
                ")", sep = "")
            uni.res <- t(rbind(summ, ifelse(uni[, 4] <= 0.001, 
                "< 0.001", as.character(round(uni[, 4], decimal + 
                  1)))))
            colnames(uni.res) <- c(paste("crude OR.(", 100 - 
                100 * 0.05, "%CI)", sep = ""), "crude P value")
            rownames(uni.res) <- rownames(uni)
            mul <- coefNA(model)[-1, ]
            mul.summ <- paste(round(exp(mul[, 1]), decimal), 
                " (", round(exp(mul[, 1] - 1.96 * mul[, 2]), 
                  decimal), ",", round(exp(mul[, 1] + 1.96 * 
                  mul[, 2]), decimal), ")", sep = "")
            mul.res <- t(rbind(mul.summ, ifelse(mul[, 4] <= 0.001, 
                "< 0.001", as.character(round(mul[, 4], decimal + 
                  1)))))
            colnames(mul.res) <- c(paste("adj. OR.(", 100 - 100 * 
                0.05, "%CI)", sep = ""), "adj. P value")
        }
        res <- cbind(uni.res[rownames(uni.res) %in% rownames(mul.res), 
            ], mul.res)
        rownames(res) <- rownames(mul)
    }
    fix.all <- res
    fix.all.list <- lapply(1:length(xs), function(x) {
        fix.all[rownames(fix.all) %in% rn.uni[[x]], ]
    })
    varnum.mfac <- which(lapply(fix.all.list, length) > ncol(fix.all))
    lapply(varnum.mfac, function(x) {
        fix.all.list[[x]] <<- rbind(rep(NA, ncol(fix.all)), fix.all.list[[x]])
    })
    fix.all.unlist <- Reduce(rbind, fix.all.list)
    rn.list <- lapply(1:length(xs), function(x) {
        rownames(fix.all)[rownames(fix.all) %in% rn.uni[[x]]]
    })
    varnum.2fac <- which(xs %in% names(model$xlevels)[lapply(model$xlevels, 
        length) == 2])
    lapply(varnum.2fac, function(x) {
        rn.list[[x]] <<- paste(xs[x], ": ", model$xlevels[[xs[x]]][2], 
            " vs ", model$xlevels[[xs[x]]][1], sep = "")
    })
    lapply(varnum.mfac, function(x) {
        rn.list[[x]] <<- c(paste(xs[x], ": ref.=", model$xlevels[[xs[x]]][1], 
            sep = ""), gsub(xs[x], "   ", rn.list[[x]]))
    })
    if (class(fix.all.unlist) == "character") {
        fix.all.unlist <- t(data.frame(fix.all.unlist))
    }
    rownames(fix.all.unlist) <- unlist(rn.list)
    outcome.name <- y
    if (gaussianT) {
        first.line <- paste("Linear regression predicting ", 
            outcome.name, sep = "", "\n")
        last.lines <- paste("No. of observations = ", length(model$y), 
            "\n", "R-squared = ", round(cor(model$y, predict(model))^2, 
                decimal + 2), "\n", "AIC value = ", round(model$aic, 
                decimal + 2), "\n", "\n", sep = "")
    }
    else {
        first.line <- paste("Logistic regression predicting ", 
            outcome.name, sep = "", "\n")
        last.lines <- paste("No. of observations = ", length(model$y), 
            "\n", "AIC value = ", round(model$aic, decimal + 
                2), "\n", "\n", sep = "")
    }
    results <- list(first.line = first.line, table = fix.all.unlist, 
        last.lines = last.lines)
    class(results) <- c("display", "list")
    return(results)
}
<bytecode: 0x55b24fae3a18>
<environment: namespace:jstable>
 --- function search by body ---
Function glmshow.display in namespace jstable has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1