R/number_of_arguments.R

In vlulla/vlutils: Common utilities that I find useful

Defines functions number_of_arguments

Documented in number_of_arguments

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