Is there a work around for slow performance of do.call(cbind.xts,…) in R 2.15.2?

Question

I would expect cbind.xts and do.call(cbind.xts) to perform with similar elapsed time. That was true for R2.11, R2.14.

For R2.15.2 and

Answer 1

One work-around is to set quote=TRUE in do.call.

R> system.time(cb <- cbind.xts(d1,d2))
   user  system elapsed 
  0.004   0.000   0.004 
R> system.time(dc <- do.call(cbind.xts, list(d1,d2), quote=TRUE))
   user  system elapsed 
  0.000   0.004   0.004 
R> identical(cb,dc)
[1] TRUE

The slowness is caused by do.call evaluating the arguments before evaluating the function call by default, which causes the call to be much larger. For example, compare these two calls:

call("cbind", d1, d2)                # huge
call("cbind", quote(d1), quote(d2))  # dainty