Esiste un problema con le prestazioni lente di do.call (cbind.xts, ...) in R 2.15.2?

Question

Mi aspetto che cbind.xts e do.call(cbind.xts) eseguano con un tempo trascorso simile. Questo era vero per R2.11, R2.14.

Per R2.15.2 e XTS 0,8-8, la variante do.call(cbind.xts,...) esegue drasticamente più lento, che rompe in modo efficace i miei codici precedenti.

Come osserva Josh Ulrich in un commento di seguito, i manutentori del pacchetto xts sono a conoscenza di questo problema. Nel frattempo, c'è un lavoro conveniente in giro?

esempio riproducibile:

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

contro

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

Answer 1

Un work-around è quello di impostare 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 

La lentezza è causato da do.call valutando gli argomenti prima di valutare la chiamata di funzione di default, che provoca la chiamata ad essere molto più grande. Ad esempio, confrontare queste due chiamate:

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