R Function Composition

compose.R

#' Copyright Andrew Redd 2012
#' Licensed under GPLv3 or newer

#' Nest functions
#' @return new function cosisting of the functions nested
compose <- function(..., .list){
  l <- if(missing(.list)) {
    list(...)
  } else {
    .list
  }
  body <- as.name('...')
  for(i in rev(l)){
    body <- as.call(list(i,body))
  }
  as.function(append(alist(...=), body))
}
#' @rdname compose
`%.%` <- function(x,y){
  compose(.list=list(x,y))
}