Error(s) in re-building vignettes:
  ...
--- re-building ‘spsur-vignette.Rmd’ using rmarkdown
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
spsur
 --- call from context --- 
lmtestspsur(Form = spcformula, data = spc, W = Wspc)
 --- call from argument --- 
if (class(W) != "matrix") W <- as.matrix(W)
 --- R stacktrace ---
where 1: lmtestspsur(Form = spcformula, data = spc, W = Wspc)
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/spsur.Rcheck/vign_test/spsur", 
    ser_elibs = "/home/hornik/tmp/scratch/RtmpExeFJm/file329a5d1e72c8.rds")

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (Form = NULL, data = NULL, W = NULL, X = NULL, Y = NULL, 
    time = NULL, G = NULL, N = NULL, Tm = NULL, print_table = TRUE) 
{
    if (is.null(W)) 
        stop("W matrix is needed")
    if (!is.null(W)) {
        if (class(W) != "matrix") 
            W <- as.matrix(W)
        rsumW <- rowSums(W)
        rsumW[rsumW == 0] <- 1
        nW <- dim(W)[1]
        W <- W/matrix(rep(rsumW, each = nW), nrow = nW, ncol = nW, 
            byrow = TRUE)
        W <- Matrix::Matrix(W)
    }
    if (is.null(time)) {
        if (!is.null(Form) && !is.null(data)) {
            if (!any(class(Form) == "Formula")) 
                Form <- Formula::Formula(Form)
            get_XY <- get_data_spsur(formula = Form, data = data, 
                W = W)
            Y <- get_XY$Y
            X <- get_XY$X
            G <- get_XY$G
            N <- get_XY$N
            Tm <- get_XY$Tm
            p <- get_XY$p
            rm(get_XY)
        }
        else {
            if (G == 1 && Tm > 1) {
                G <- Tm
                Tm <- 1
            }
        }
    }
    else {
        if (class(time) != "factor") 
            time <- as.factor(time)
        time <- droplevels(time)
        if (length(time) != nrow(data)) 
            stop("time must have same length than the\n                                         number of rows in data")
        mt <- terms(Form)
        G <- length(levels(time))
        Ylist <- vector("list", G)
        Xlist <- vector("list", G)
        p <- NULL
        namesX <- NULL
        levels_time <- levels(time)
        for (i in 1:G) {
            data_i <- model.frame(mt, data = data[time == levels_time[i], 
                ])
            Ylist[[i]] <- data_i[, 1]
            Xlist[[i]] <- model.matrix(mt, data = data[time == 
                levels_time[i], ])
            p <- c(p, ncol(Xlist[[i]]))
            namesX <- c(namesX, paste(colnames(Xlist[[i]]), i, 
                sep = "_"))
        }
        Y <- matrix(unlist(Ylist), ncol = 1)
        X <- as.matrix(Matrix::bdiag(Xlist))
        colnames(X) <- namesX
        N <- length(Ylist[[1]])
        Tm <- 1
    }
    res <- sur3_spdiag(Tm = Tm, G = G, N = N, Y = Y, X = X, W = W)
    table_results <- cbind(res$stat, res$df, pchisq(res$stat, 
        res$df, lower.tail = FALSE))
    rownames(table_results) <- res$stat_names
    colnames(table_results) <- c("LM-Stat.", "DF", "p-value")
    if (print_table) 
        printCoefmat(table_results, P.values = TRUE, has.Pvalue = TRUE, 
            digits = 4)
    return(res)
}
<bytecode: 0x55606b6de2e8>
<environment: namespace:spsur>
 --- function search by body ---
Function lmtestspsur in namespace spsur has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1