Error(s) in re-building vignettes:
  ...
--- re-building 'StatDA.Rnw' using Sweave
Loading required package: geoR
--------------------------------------------------------------
 Analysis of Geostatistical Data
 For an Introduction to geoR go to http://www.leg.ufpr.br/geoR
 geoR version 1.7-5.2.2 (built on 2016-05-02) is now loaded
--------------------------------------------------------------

Loading required package: sgeostat
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
StatDA
 --- call from context --- 
.local(x, y, ...)
 --- call from argument --- 
if ((class(leg) != "NULL") & length(a@El) == 1) {
    text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El], 
        cex = 0.8, adj = c(0.3, -0.2))
}
 --- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, locations = cbind(X[sel], Y[sel]), len = 700, key.loc = c(793000, 
    7760000), leglen = 1500, cex = 0.75, add = T, leglh = 6, 
    lh = 30, wmax = 120, wmin = 30, labels = 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)
    }
    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 23: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/StatDA.Rcheck/vign_test/StatDA", 
    ser_elibs = "/tmp/Rtmp7PiLDc/fileec8b46ac81.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (a, x, y, len = 1, lh = 1, leg = NULL, ...) 
{
    points = matrix(0, nrow = 4, ncol = 2)
    if (a@LR == 0) {
        points[1, 1] = x
        points[1, 2] = y
        points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w * 
            2 * pi/360)
        points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w * 
            2 * pi/360)
        points[3, 1] = points[2, 1] + len * length(a@El)
        points[3, 2] = points[2, 2]
        points[4, 1] = points[1, 1] + len * length(a@El)
        points[4, 2] = points[1, 2]
        polygon(points)
        if ((class(leg) != "NULL") & length(a@El) == 1) {
            text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El], 
                cex = 0.8, adj = c(0.3, -0.2))
        }
    }
    if (a@LR == 1) {
        points[1, 1] = x
        points[1, 2] = y
        points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w * 
            2 * pi/360)
        points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w * 
            2 * pi/360)
        points[3, 1] = points[2, 1] + len * length(a@El)
        points[3, 2] = points[2, 2]
        points[4, 1] = points[1, 1] + len * length(a@El)
        points[4, 2] = points[1, 2]
        polygon(points)
        if ((class(leg) != "NULL") & length(a@El) == 1) {
            text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El], 
                cex = 0.8, adj = c(0, -0.2))
        }
    }
    if (class(a@LeafL) != "NULL") {
        if (a@LR == 0) 
            plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 * 
                pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360), 
                len, lh, leg)
        if (a@LR == 1) 
            plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 * 
                pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360), 
                len, lh, leg)
    }
    if (class(a@LeafR) != "NULL") {
        if (a@LR == 0) 
            plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 * 
                pi/360) + len * length(a@LeafL@El), y + lh * 
                len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
        if (a@LR == 1) 
            plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 * 
                pi/360) + len * length(a@LeafL@El), y + lh * 
                len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
    }
}
<bytecode: 0xf7aa9b8>
<environment: namespace:StatDA>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 

Error: processing vignette 'StatDA.Rnw' failed with diagnostics:
 chunk 30 (label = fig14plot) 
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { : 
  the condition has length > 1

--- failed re-building 'StatDA.Rnw'

SUMMARY: processing the following file failed:
  'StatDA.Rnw'

Error: Vignette re-building failed.
Execution halted