Wrap Hook Results

wrap_hook.R

#' Wrap output of a function 
#'
#' This function can be used to redefine output hooks easily for some important
#' use cases
wrap <- function(fn, before, after){
  function(x, ...){
    x = paste(c(before, x, after), collapse = '\n')
    fn(x, ...) 
  }
}