# NOT RUN {
f <- function(...) {
unpack_environment <- parent.frame(n = 1)
captured_dots <- as.list(do.call(bquote,
list(substitute(list(...)),
where = unpack_environment),
envir = unpack_environment))[-1]
grab_assignments_from_dots(captured_dots)
}
f(a, c = d, e := f, g <- h, i -> j)
# should equal c('a', 'c' = 'd', 'e' = 'f', 'g' = 'h', 'j' = 'i')
# }
Run the code above in your browser using DataLab