R/number_of_args.R

In vlulla/vlutils: Common utilities that I find useful

Defines functions number_of_args

Documented in number_of_args

number_of_args <-
function(func) {
  stopifnot(is.function(func))
  length(formals(func))
}