installExprFunction(expr, name, eval.env = parent.frame(2), quoted = FALSE, assign.env = parent.frame(1), label = deparse(sys.call(-1)[[1]]), wrappedWithLabel = TRUE, ..stacktraceon = FALSE)stacktrace.exprToFunction as follows: we may use
func <- exprToFunction(expr) if we do not want the debug hooks, or
installExprFunction(expr, "func") if we do. Both approaches create a
function named func in the current environment.
exprToFunction; see that method's documentation
for more documentation and examples.