Wrap the source for an exprssion as a function.

wrapfn(fn, arg_name = ".", args = list())

Arguments

fn

function.

arg_name

characer, name of argument to assign.

args

named list of adittional arguments and values.

Value

PartialFunction

See also

Examples

f <- wrapfn(sin, "x") cat(format(f))
#> PartialFunction{sin}(x=., )
1:3 %.>% f
#> [1] 0.8414710 0.9092974 0.1411200