Build an anonymous function.
makeFunction_se(params, body, env = parent.frame())
formal parameters of function, unbound names.
substituted body of function to map arguments into.
environment to work in.
user defined function.
f <- makeFunction_se(as.name('x'), substitute({x*x}))
f(7)
#> [1] 49
g <- makeFunction_se(c(as.name('x'), as.name('y')), substitute({ x + 3*y }))
g(1,100)
#> [1] 301