R/utils.R

In decisionpatterns/stringr.tools: Useful Extensions to the Popular 'stringr' Package

# Non-exported utils


# Minimal Pipe
# `%>%` = 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)
# }