Issue with lazy evaluation

[lionel-]

library(magrittr)

gen <- function(x) function() eval(quote(x))

fn <- gen(1)
fn()
#> [1] 1

fn <- 1 %>% gen()
fn()
#> $value
#> function () 
#> eval(quote(x))
#> <bytecode: 0x7fcef8570800>
#> <environment: 0x7fcef89f5520>
#> 
#> $visible
#> [1] TRUE

Fixed if forced:

gen <- function(x) {
  force(x)
  function() eval(quote(x))
}

fn <- 1 %>% gen()
fn()
#> [1] 1

[lionel-]

Fixed by #218