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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: heatmap.overlaps
> ### Title: Plot heatmat
> ### Aliases: heatmap.overlaps
> 
> ### ** Examples
> 
> mat <- matrix(rnbinom(135, size = 10, prob = 0.2), nrow = 15, ncol = 9)
> colnames(mat) <- paste0("Treat", 1:9)
> rownames(mat) <- c("a", "b", "c", "d", "ab", "ac", "ad", "bc", "bd", "cd",
+                    "abc", "abd", "acd", "bcd", "abcd")
> head(mat)
   Treat1 Treat2 Treat3 Treat4 Treat5 Treat6 Treat7 Treat8 Treat9
a      38     39     39     30     60     35     48     29     36
b      58     46     24     27     80     40     36     64     63
c      23     30     60     35     40     34     57     23     63
d      51     21     38     45     28     54     64     36     59
ab     29     47     49     44     41     23     59     47     38
ac     29     52     38     28     67     54     52     47     21
> 
> heatmap.overlaps(mat)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
bioplots
 --- call from context --- 
heatmap.overlaps(mat)
 --- call from argument --- 
if (x.class == "list") {
    mat <- .heatmap.overlaps.list(x)
    obj <- .heatmap.overlaps.matrix(mat, legend, xlab, ylab, 
        col, lim, x.axis.angle)
}
 --- R stacktrace ---
where 1: heatmap.overlaps(mat)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, legend = NA, xlab = NA, ylab = NA, col = NA, lim = NA, 
    x.axis.angle = 90) 
{
    if (is.na(xlab)) 
        xlab <- "condition"
    if (is.na(ylab)) 
        ylab <- "pattern"
    if (is.na(legend)) 
        legend <- "overlaps"
    if (is.na(col)) 
        col <- rev(brewer.pal(9, "Spectral"))
    obj <- NULL
    x.class <- class(x)
    if (x.class == "list") {
        mat <- .heatmap.overlaps.list(x)
        obj <- .heatmap.overlaps.matrix(mat, legend, xlab, ylab, 
            col, lim, x.axis.angle)
    }
    if (x.class == "matrix") {
        obj <- .heatmap.overlaps.matrix(x, legend, xlab, ylab, 
            col, lim, x.axis.angle)
    }
    obj
}
<bytecode: 0x5774e90>
<environment: namespace:bioplots>
 --- function search by body ---
Function heatmap.overlaps in namespace bioplots has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1