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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: tie.lim
> ### Title: Discretises lim objects
> ### Aliases: tie.lim
> 
> ### ** Examples
> 
> l  <- matrix(1:30, ncol = 3, byrow = FALSE)
> r  <- matrix(2:31, ncol = 3, byrow = FALSE)
> id <- matrix(rep(c("C1", "C2", "C3"),10), ncol = 3, byrow = TRUE)
> y  <- matrix(rep(1:10,3), ncol = 3, byrow = FALSE)
> xout <- seq(-2,32,0.5)
> 
> res  <- tie.lim(l = l, r = r,  y = y, xout = xout, id = id)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
StratigrapheR
 --- call from context --- 
as.lim(lim = lim, l = l, r = r, id = id)
 --- call from argument --- 
if (class(l) == "matrix" & class(r) == "matrix") {
    test.l <- as.vector(l)
    test.r <- as.vector(r)
    isMATRIX <- T
} else {
    test.l <- l
    test.r <- r
    isMATRIX <- F
}
 --- R stacktrace ---
where 1: as.lim(lim = lim, l = l, r = r, id = id)
where 2: tie.lim(l = l, r = r, y = y, xout = xout, id = id)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (lim = NULL, l = NULL, r = NULL, id = 1L, b = "[]") 
{
    if ((length(lim) >= 4 & length(l) == 0 & length(r) == 0) | 
        (length(lim) == 0 & length(l) != 0 & length(r) != 0)) {
        if (length(lim) >= 4 & isTRUE(all(names(lim)[1:4] == 
            c("l", "r", "id", "b")))) {
            l <- lim[[1]]
            r <- lim[[2]]
            id <- lim[[3]]
            b <- lim[[4]]
        }
        else if (length(lim) >= 4) {
            stop(paste("The 4 first elements of the lim object should respectively", 
                " be 'l', 'r', 'id' and 'b'.", sep = ""))
        }
        if (class(l) == "matrix" & class(r) == "matrix") {
            test.l <- as.vector(l)
            test.r <- as.vector(r)
            isMATRIX <- T
        }
        else {
            test.l <- l
            test.r <- r
            isMATRIX <- F
        }
        if (!(class(test.l) == "numeric" | class(test.l) == "integer" | 
            class(test.r) == "numeric" | class(test.r) == "integer")) {
            stop(paste("The inputs (elements of lim or l and r) ", 
                "should be integers or numericals", sep = ""))
        }
        if (length(l) != length(r)) {
            stop(paste("The inputs (elements of lim or l and r) ", 
                "should be of same length", sep = ""))
        }
        if (length(id) == 1) 
            id <- rep(id, length(l))
        if (length(b) == 1) 
            b <- rep(b, length(l))
        if (isMATRIX) {
            lcol <- ncol(l)
            if (lcol != ncol(r)) {
                stop("If 'l' and 'r' are matrices, they should be of same format")
            }
            id <- matrix(id, ncol = lcol)
            b <- matrix(b, ncol = lcol)
        }
        if (length(id) != length(l)) {
            stop("The parameter 'id' should be of length 1 or n")
        }
        if (length(b) != length(l)) {
            stop("The parameter 'b' should be of length 1 or n")
        }
        res <- list(l = l, r = r, id = id, b = rebound(b))
        return(res)
    }
    else if (length(lim) != 0 & length(l) != 0 | length(lim) != 
        0 & length(r) != 0) {
        stop(paste("If the parameter 'lim' is provided 'l' and 'r' should not be, ", 
            "and if 'l' and 'r' are then 'lim' should not be", 
            sep = ""))
    }
    else if (length(lim) < 4 & length(l) == 0 & length(l) == 
        0) {
        stop("The 'lim' parameter should be made of 4 or more elements")
    }
    else {
        stop("The parameters 'l' and 'r', or 'lim' are not provided")
    }
}
<bytecode: 0x55d6650>
<environment: namespace:StratigrapheR>
 --- function search by body ---
Function as.lim in namespace StratigrapheR has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1