Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (14 sloc) 0.281 kB
# f <- function(...) {
# dots()
# }
# g <- function() {
# f <- function(x, y, ...) {
# dots()
# }
# f(x = 1, y = 2, z = 3)
# }
dots <- function() {
call <- sys.call(-1)
def <- eval(call[[1]], parent.frame(2))
match.call(def, call, expand.dots = FALSE)$`...`
}
Jump to Line
Something went wrong with that request. Please try again.