Nothing
# Determine whether an expression counts as a function in a magrittr chain.
#
# @param a non-evaluated expression.
# @return logical - TRUE if expr represents a function, FALSE otherwise.
# @author Stefan Milton Bache and Hadley Wickham
is_function <- function(expr) {
is.symbol(expr) || is.function(expr)
}
# Prepare a magrittr rhs of funtion type
#
# @param a an expression which passes \code{is_function}
# @return an expression prepared for functional sequence construction.
# @author Stefan Milton Bache and Hadley Wickham
prepare_function <- function(f) {
as.call(list(f, quote(.)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.