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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: insertCol
> ### Title: Insert Column into a Matrix
> ### Aliases: insertCol
> ### Keywords: array
> 
> ### ** Examples
> 
>    m <- matrix( 1:4, 2 )
>    insertCol( m, 2, 5:6 )
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
miscTools
 --- call from context --- 
insertCol(m, 2, 5:6)
 --- call from argument --- 
if (class(m) != "matrix") {
    stop("argument 'm' must be a matrix")
}
 --- R stacktrace ---
where 1: insertCol(m, 2, 5:6)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (m, c, v = NA, cName = "") 
{
    if (class(m) != "matrix") {
        stop("argument 'm' must be a matrix")
    }
    if (c == as.integer(c)) {
        c <- as.integer(c)
    }
    else {
        stop("argument 'c' must be an integer")
    }
    if (length(c) != 1) {
        stop("argument 'c' must be a scalar")
    }
    if (c < 1) {
        stop("argument 'c' must be positive")
    }
    if (c > ncol(m) + 1) {
        stop("argument 'c' must not be larger than the number of columns", 
            " of matrix 'm' plus one")
    }
    if (!is.character(cName)) {
        stop("argument 'cName' must be a character string")
    }
    if (length(cName) != 1) {
        stop("argument 'cName' must be a be a single character string")
    }
    nr <- nrow(m)
    nc <- ncol(m)
    cNames <- colnames(m)
    if (is.null(cNames) & cName != "") {
        cNames <- rep("", nc)
    }
    if (c == 1) {
        m2 <- cbind(matrix(v, nrow = nr), m)
        if (!is.null(cNames)) {
            colnames(m2) <- c(cName, cNames)
        }
    }
    else if (c == nc + 1) {
        m2 <- cbind(m, matrix(v, nrow = nr))
        if (!is.null(cNames)) {
            colnames(m2) <- c(cNames, cName)
        }
    }
    else {
        m2 <- cbind(m[, 1:(c - 1), drop = FALSE], matrix(v, nrow = nr), 
            m[, c:nc, drop = FALSE])
        if (!is.null(cNames)) {
            colnames(m2) <- c(cNames[1:(c - 1)], cName, cNames[c:nc])
        }
    }
    return(m2)
}
<bytecode: 0x1df3aa8>
<environment: namespace:miscTools>
 --- function search by body ---
Function insertCol in namespace miscTools has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1