Running examples in 'bipartite-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: array2linkmx
> ### Title: Reshape a webarray to a web X link matrix
> ### Aliases: array2linkmx
> ### Keywords: package
> 
> ### ** Examples
> 
> array2linkmx(webs2array(Safariland, vazquenc))
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
bipartite
 --- call from context --- 
webs2array(Safariland, vazquenc)
 --- call from argument --- 
if (class(webs[[1]]) == "list") {
    webs <- webs[[1]]
    web.names <- names(webs)
    if (is.null(web.names)) {
        web.names <- paste0("web", 1:length(webs))
    }
}
 --- R stacktrace ---
where 1: webs2array(Safariland, vazquenc)
where 2: matrix(nrow = dim(webarray)[1] * dim(webarray)[2], ncol = dim(webarray)[3])
where 3: array2linkmx(webs2array(Safariland, vazquenc))

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (...) 
{
    webinput <- substitute(list(...))
    web.names <- as.character(webinput)[-1L]
    webs <- eval(webinput)
    if (class(webs[[1]]) == "list") {
        webs <- webs[[1]]
        web.names <- names(webs)
        if (is.null(web.names)) {
            web.names <- paste0("web", 1:length(webs))
        }
    }
    if (length(webs) < 2) 
        stop("Please provide more than one web as input!")
    all.names.HL <- sort(unique(unlist(lapply(webs, colnames))))
    all.names.LL <- sort(unique(unlist(lapply(webs, rownames))))
    web.array <- array(0, dim = c(length(all.names.LL), length(all.names.HL), 
        length(web.names)), dimnames = list(all.names.LL, all.names.HL, 
        web.names))
    for (i in 1:length(web.names)) {
        ri <- rownames(webs[[i]])
        ci <- colnames(webs[[i]])
        web.array[ri, ci, i] <- webs[[i]]
    }
    return(web.array)
}
<bytecode: 0xa98fa28>
<environment: namespace:bipartite>
 --- function search by body ---
Function webs2array in namespace bipartite has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(webs[[1]]) == "list") { : the condition has length > 1
Calls: array2linkmx -> matrix -> webs2array
Execution halted