R/copy_args.R

In frite: Functions Writing Functions

#' Copies the arguments of one function to another
#'
#' Copies the arguments of  one function, "from", to "to".
#'
#' @param from A function with the arguments to copy
#' @param to A function to receive new arguments
#'
#' @return function
#'
#' @seealso See \code{\link{tictocify}} function body for a use case.
#'
#' @export
#'


copy_args <- function(from, to) {

  # Error checking
  assert_that(is.function(from), is.function(to))
  assert_not_primitive(from, to)

  int_f <- to
  formals(int_f) <- formals(from)

  return(int_f)
}