nargs()
nargs returns the number of
arguments supplied to that function.args, formals and sys.call.
tst <- function(a, b=3, ...) {nargs()}
tst() # 0
tst(clicketyclack) # 1 (even non existing)
tst(c1,a2,rr3) # 3
nargs()# not really meaningful