#' @export
#'
compose <-
function(.f, .g)
{
f <- deparse(substitute(.f))
g <- deparse(substitute(.g))
h <- function(.) {}
body(h) <- parse(text = paste0(f, "(", g, "(.))"))
h
}
#' @export
#'
"%.%" <- compose
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.