R/create_function.R

In PRL-PRG/instrumentr: Instrumentation Framework for R

#' @export
create_function <- function(function_name, parameter_count, function_object, public, s3_generic, s3_method) {
    stopifnot(is_scalar_character(function_name))
    stopifnot(is_scalar_integer(parameter_count))
    stopifnot(is_closure(function_object))
    stopifnot(is_scalar_logical(public))
    stopifnot(is_scalar_logical(s3_generic))
    stopifnot(is_scalar_logical(s3_method))

    .Call(C_function_create_function,
          function_name,
          parameter_count,
          function_object,
          public,
          s3_generic,
          s3_method)
}