nofrills | Low-cost anonymous functions | Function As A Service library

z <- 0

fn(x, y = !!z ~ x + y)
#> function (x, y = 0) 
#> x + y

fn(x ~ x > !!z)
#> function (x) 
#> x > 0

arg <- "y"

fn(x, !!arg := 0 ~ x + !!as.name(arg))
#> function (x, y = 0) 
#> x + y

args <- alist(x, y = 0)
  

fn(x ~ x + 1)
#> function (x) 
#> x + 1

fn(x, y ~ x + y)
#> function (x, y) 
#> x + y

fn(x, y = 2 ~ x + y)
#> function (x, y = 2) 
#> x + y

fn(x, y = 1, ... ~ log(x + y, ...))
#> function (x, y = 1, ...) 
#> log(x + y, ...)  

compare_to <- curry_fn(target, x ~ identical(x, QUQ(target)))
is_this <- compare_to("this")

# The embedded value "this" renders the source comprehensible
is_this
#> function (x) 
#> identical(x, "this")
#> 

curry(function(x, y, z = 0