R/add_additor.R

In femoerman/LEEF-BEMOVI: Data Package Containing Only Data and Data Information

#' @title Add or replace a function in a queue
#'
#' @details \bold{add_additor}: Adding a named function to the queue of additors. If the named function
#' already exists will it be replaced.
#'
#' @return invisibly the function queue. A \code{list} which is processed
#'
#' @rdname add
#'
#' @export
#'
#' @examples
#' add_additor( fun = cat )
add_additor <- function(fun) {
  funname <- paste0(
    getNamespaceName(environment(fun))[[1]],
    "::",
    deparse(substitute(fun))
  )
  invisible( add(fun, funname, "additors") )
}