Displaying 1 result from an estimated 1 matches for "remainingdots".
2005 Dec 07
1
Dots argument in apply method
...ups = myGroups
)
if(!all(names(.call)[-1] %in% names(formals(.apply.myClass)))) {
## Some dots arguments have been provided
otherNames <- (names(.call)[-1])[!(names(.call)[-1] %in%
names(formals(.apply.myClass)))]
remainingDots <- lapply(otherNames, function(i) .call[[i]])
names(remainingDots) <- otherNames
argList <- c(argList,remainingDots)
}
do.call(.apply.myClass, args = argList)
}
)
Does anyone have a quicker solution?
Thanks in advanc...