Displaying 1 result from an estimated 1 matches for "argl0".
Did you mean:
arg0
2008 Dec 03
1
reduce limit number of arguments in methods:::cbind
...RECURSION -- with care
## determine nrow(<result>) for e.g., cbind(diag(2), 1, 2)
## only when the last two argument have *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(arg...