Displaying 1 result from an estimated 1 matches for "argl2".
Did you mean:
arg2
2008 Dec 03
1
reduce limit number of arguments in methods:::cbind
...*no* dim attribute:
+ idx.aS4 <- 0
+ while (!rev(aS4)[idx.aS4+1])
+ idx.aS4 <- idx.aS4 + 1
+ if (idx.aS4 > 1) {
+ argl0 <- argl[(na-idx.aS4+1):na]
+ argl1 <- do.call(cbind, c(argl0, list(deparse.level=deparse.level)))
+ argl2 <- c(argl[1L:(na-idx.aS4)], list(argl1))
+ return(do.call(cbind, c(argl2, list(deparse.level=deparse.level))))
+ }
nrs <- unname(lapply(argl, nrow)) # of length na
iV <- sapply(nrs, is.null)# is 'vector'
fix.na <- identical(nrs[(na-1):na], list(NULL,NULL)...