f <- function(...) {
unpack_environment <- parent.frame(n = 1)
orig_args <- substitute(list(...))
grab_assignments_from_dots(orig_args, unpack_environment)
}
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