Error(s) in re-building vignettes:
  ...
--- re-building ‘combine_maptools.Rnw’ using Sweave
Loading required package: sp
Checking rgeos availability: TRUE
Warning: readShapeSpatial is deprecated; use rgdal::readOGR or sf::st_read
Warning: readShapePoly is deprecated; use rgdal::readOGR or sf::st_read
Warning: readShapeSpatial is deprecated; use rgdal::readOGR or sf::st_read
Warning: readShapePoly is deprecated; use rgdal::readOGR or sf::st_read
Warning: readShapeSpatial is deprecated; use rgdal::readOGR or sf::st_read
Warning: readShapePoly is deprecated; use rgdal::readOGR or sf::st_read
Warning: non-unique values when setting 'row.names': ‘37055’, ‘37095’
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
maptools
 --- call from context --- 
checkPolygonsGEOS(x, properly = properly, useSTRtree = useSTRtree)
 --- call from argument --- 
if (class(res) == "try-error") {
    warning("Polygons object ", IDs, ", Polygon ", i, ": ", res)
    next
}
 --- R stacktrace ---
where 1: checkPolygonsGEOS(x, properly = properly, useSTRtree = useSTRtree)
where 2: FUN(X[[i]], ...)
where 3 at combine_maptools.Rnw#259: lapply(va90_pl, checkPolygonsHoles)
where 4: eval(expr, .GlobalEnv)
where 5: eval(expr, .GlobalEnv)
where 6: withVisible(eval(expr, .GlobalEnv))
where 7: doTryCatch(return(expr), name, parentenv, handler)
where 8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 9: tryCatchList(expr, classes, parentenv, handlers)
where 10: 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 11: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 12: evalFunc(ce, options)
where 13: tryCatchList(expr, classes, parentenv, handlers)
where 14: tryCatch(evalFunc(ce, options), finally = {
    cat("\n")
    sink()
})
where 15: driver$runcode(drobj, chunk, chunkopts)
where 16: utils::Sweave(...)
where 17: engine$weave(file, quiet = quiet, encoding = enc)
where 18: doTryCatch(return(expr), name, parentenv, handler)
where 19: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 20: tryCatchList(expr, classes, parentenv, handlers)
where 21: 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 22: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/maptools.Rcheck/vign_test/maptools", 
    ser_elibs = "/home/hornik/tmp/scratch/RtmpyPjrRF/file62b67879b48f.rds")

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (obj, properly = TRUE, force = TRUE, useSTRtree = FALSE) 
{
    if (!is(obj, "Polygons")) 
        stop("not a Polygons object")
    if (!requireNamespace("rgeos", quietly = TRUE)) 
        stop("package rgeos required for checkPolygonsGEOS")
    comm <- try(rgeos::createPolygonsComment(obj), silent = TRUE)
    if (class(comm) != "try-error" && !force) {
        comment(obj) <- comm
        return(obj)
    }
    pls <- slot(obj, "Polygons")
    IDs <- slot(obj, "ID")
    n <- length(pls)
    if (n < 1) 
        stop("Polygon list of zero length")
    uniqs <- rep(TRUE, n)
    if (n > 1) {
        if (useSTRtree) 
            tree1 <- rgeos::gUnarySTRtreeQuery(obj)
        SP <- SpatialPolygons(lapply(1:n, function(i) Polygons(list(pls[[i]]), 
            ID = i)))
        for (i in 1:(n - 1)) {
            if (useSTRtree) {
                if (!is.null(tree1[[i]])) {
                  res <- try(rgeos::gEquals(SP[i, ], SP[tree1[[i]], 
                    ], byid = TRUE), silent = TRUE)
                  if (class(res) == "try-error") {
                    warning("Polygons object ", IDs, ", Polygon ", 
                      i, ": ", res)
                    next
                  }
                  if (any(res)) {
                    uniqs[as.integer(rownames(res)[res])] <- FALSE
                  }
                }
            }
            else {
                res <- try(rgeos::gEquals(SP[i, ], SP[uniqs, 
                  ], byid = TRUE), silent = TRUE)
                if (class(res) == "try-error") {
                  warning("Polygons object ", IDs, ", Polygon ", 
                    i, ": ", res)
                  next
                }
                res[i] <- FALSE
                if (any(res)) {
                  wres <- which(res)
                  uniqs[wres[wres > i]] <- FALSE
                }
            }
        }
    }
    if (any(!uniqs)) 
        warning(paste("Duplicate Polygon objects dropped:", paste(wres, 
            collapse = " ")))
    pls <- pls[uniqs]
    n <- length(pls)
    if (n < 1) 
        stop("Polygon list of zero length")
    if (n == 1) {
        oobj <- Polygons(pls, ID = IDs)
        comment(oobj) <- rgeos::createPolygonsComment(oobj)
        return(oobj)
    }
    areas <- sapply(pls, slot, "area")
    pls <- pls[order(areas, decreasing = TRUE)]
    oholes <- sapply(pls, function(x) slot(x, "hole"))
    holes <- rep(FALSE, n)
    SP <- SpatialPolygons(lapply(1:n, function(i) Polygons(list(pls[[i]]), 
        ID = i)))
    if (useSTRtree) 
        tree2 <- rgeos::gUnarySTRtreeQuery(SP)
    for (i in 1:(n - 1)) {
        if (useSTRtree) {
            if (!is.null(tree2[[i]])) {
                if (properly) 
                  res <- rgeos::gContainsProperly(SP[i, ], SP[tree2[[i]], 
                    ], byid = TRUE)
                else res <- rgeos::gContains(SP[i, ], SP[tree2[[i]], 
                  ], byid = TRUE)
            }
            else {
                res <- FALSE
            }
        }
        else {
            if (properly) 
                res <- rgeos::gContainsProperly(SP[i, ], SP[-(1:i), 
                  ], byid = TRUE)
            else res <- rgeos::gContains(SP[i, ], SP[-(1:i), 
                ], byid = TRUE)
        }
        wres <- which(res)
        if (length(wres) > 0L) {
            nres <- as.integer(rownames(res))
            holes[nres[wres]] <- !holes[nres[wres]]
        }
    }
    for (i in 1:n) {
        if (oholes[i] != holes[i]) 
            pls[[i]] <- Polygon(slot(pls[[i]], "coords"), hole = holes[i])
    }
    oobj <- Polygons(pls, ID = IDs)
    comment(oobj) <- rgeos::createPolygonsComment(oobj)
    oobj
}
<bytecode: 0x55b15825b138>
<environment: namespace:maptools>
 --- function search by body ---
Function checkPolygonsGEOS in namespace maptools has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1