R/functional.R

In statnmap/arpr: Advanced R Pipes

#' Create a constant function
#'
#' @param val return value of constant function (defaults to NULL)
#' @return A function always returning `val` accepting arbitrary arguments (dots)
#' @export
const <- function(val = NULL) {
  function(...) {
    val
  }
}