# NOT RUN {
# Extract from current call:
fn <- function(a = 1, b = 2) fn_fmls()
fn()
# Works with primitive functions:
fn_fmls(base::switch)
# fn_fmls_syms() makes it easy to forward arguments:
lang("apply", !!! fn_fmls_syms(lapply))
# }
Run the code above in your browser using DataLab