Pipe object does not work with rlist in local environment

[renkun-ken]

> library(pipeR)
> library(rlist)
> local({i <- 10; Pipe(1:3)$list.map(. + i)})
Error in eval(expr, envir, enclos) : object 'i' not found

[renkun-ken]

But local environment works with built-in higher-order functions.

> local({i <- 10; Pipe(1:3)$sapply(function(j) j + i)})
<Pipe>
$value : numeric 
[1] 11 12 13

[renkun-ken]

List environment also works with local environment.

> local({ i <- 3; List(1:3)$map(. + i) })
<List environment>
$data : list 
[[1]]
[1] 4

[[2]]
[1] 5

[[3]]
[1] 6

[renkun-ken]

See https://github.com/renkun-ken/rlist/issues/50

[renkun-ken]

> local({i <- 1; Pipe(1:3)$fun(list.filter(.,. <= i))})
<Pipe>
$value : integer 
[1] 1

[renkun-ken]

The following code does not work too.

library(dplyr)
local({i <- 1;
Pipe(mtcars)$
  select(mpg,cyl,disp,hp)$
  filter(mpg <= median(mpg))$
  mutate(rmpg = mpg / max(mpg))$
  group_by(cyl)$
  do(data.frame(mean=mean(.$rmpg+i),median=median(.$rmpg+i))) []
})

but this works fine:

local({i <- 1; Pipe(mtcars)$filter(mpg <= median(mpg)+i)})

[renkun-ken]

This should not be identified as a bug of pipeR.