# Minimal Pipe
# Use to eliminate dependency on magrittr
`%>%` = function(par, fun) {
s = substitute(fun)
fun.name <- ifelse( is.name(s), s, s[[1]] )
fun.args = as.list(s)
fun.args[[1]] = par
do.call(deparse(fun.name), fun.args)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.