[Rd] iterated lapply

[Jeroen Ooms]

On Mon, Feb 23, 2015 at 12:57 PM, Daniel Kaschek
<daniel.kaschek at physik.uni-freiburg.de> wrote:
> Is this a bug or a feature?

I think it is a bug. If we use substitute to inspect the promise, it
appears the index number is always equal to its last value:

vec <- c("foo", "bar", "baz")
test <- lapply(vec, function(x){
  function(){x}
})
substitute(x, environment(test[[1]]))
substitute(x, environment(test[[2]]))