RのlistにめちゃくちゃでかいvectorやmatrixをつっこんでいくとRが落ちることがある。「ポインタ的何かをつっこめれば、、、」と思うこともあるけど、Rにポインタはない。
と思っていたが、相当することができそうな気がしてきた。こんな感じ。
> x <- 1:1000 > y <- 1:1000 > (l <- list(as.symbol("x"), as.symbol("y"))) [[1]] x [[2]] y > > lapply(l, function(tmp){ + eval(call("mean", tmp)) + }) [[1]] [1] 500.5 [[2]] [1] 500.5
