From jeroenooms at gmail.com  Mon Feb 23 22:45:32 2015
From: jeroenooms at gmail.com (Jeroen Ooms)
Date: Mon, 23 Feb 2015 13:45:32 -0800
Subject: [Rd] iterated lapply
In-Reply-To: <1424725069.2636.5.camel@physik.uni-freiburg.de>
References: <1424725069.2636.5.camel@physik.uni-freiburg.de>
Message-ID: <CABFfbXsV=-ra9pZEwWexBX3SashfwBrV2HgSgHWu16hyaJcbjA@mail.gmail.com>

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]]))



[Rd] iterated lapply
Jeroen Ooms