r - 是否有解决 R 2.15.2 中 do.call(cbind.xts,...) 性能缓慢的问题？

Question

我希望cbind.xts并do.call(cbind.xts)以类似的经过时间执行。R2.11、R2.14 也是如此。

对于 R2.15.2 和xts 0.8-8，do.call(cbind.xts,...)变体的执行速度非常慢，这有效地破坏了我之前的代码。

正如 Josh Ulrich 在下面的评论中指出的那样，xts包的维护者已经意识到了这个问题。同时，有没有方便的工作？

可重现的例子：

library(xts)

secs <- function (rows, from = as.character(Sys.time()), cols = 1, by = 1) 
{
    deltas <- seq(from = 0, by = by, length.out = rows)
    nacol <- matrix(data = NA, ncol = cols, nrow = rows)
    xts(x = nacol, order.by = strptime(from, format = "%Y-%m-%d %X") + 
        deltas)
}

n <- 20
d1 <- secs(rows=n*100,cols=n)
d2 <- secs(rows=n*100,cols=n)

system.time(cbind.xts(d1,d2))

相对

system.time(do.call(cbind.xts, list(d1,d2)))

Answer 1

一种解决方法是设置quote=TRUE.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

缓慢是do.call由默认情况下在评估函数调用之前评估参数引起的，这导致调用更大。例如，比较这两个调用：

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