Gibt es eine Arbeit für die langsame Ausführung von do.call (cbind.xts, ...) in R 2.15.2?

Question

Ich würde erwarten, cbind.xts und do.call(cbind.xts) mit ähnlich verstrichener Zeit durchzuführen. Das galt für R2.11, R2.14.

Für R2.15.2 und xts 0,8-8 führt die do.call(cbind.xts,...) Variante drastisch langsamer, was meine früheren Codes effektiv bricht.

Wie Josh Ulrich in einem Kommentar unten bemerkt, sind die xts Paketbetreuer dieses Problems bekannt. Gibt es in der Zwischenzeit eine bequeme Arbeit?

Reproduzierbare Beispiel:

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

gegen

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

Answer 1

Ein Work-around ist quote=TRUE in do.call einzustellen.

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 

Die Langsamkeit wird durch do.call veranlaßt, die Argumente Auswertung vor den Funktionsaufruf von Standard Auswertung, die den Anruf viel größer sein verursacht. Vergleichen Sie beispielsweise diese beiden Aufrufe:

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