expr <- expression( x <- 1)
ffbase:::chunkexpr(expr)
# results in: expression(x[.i] <- 1)
ffbase:::chunkexpr(expression(z <- x+y), c("y","z"), prefix="data$")
# results in: expression(data$z[.i] <- x + data$y[.i])
Run the code above in your browser using DataLab