问为什么xts::apply.daily与孜然或累积最大失败？

EN

require(quantmod)
require(FinancialInstrument)

Symbols <- "EURUSD"

base_dir <- "/home/samop/data/sources/truefx/" 
sec_dir <- paste0(base_dir, "sec/")

EURUSD.sec <- getSymbols(Symbols, src='FI', dir=sec_dir, extension='RData', split_method='days', from='2009-10-07', to='2011-09-15', days_to_omit="Saturday", auto.assign=FALSE)
EURUSD.min <- to.minutes(EURUSD.sec)

EURUSD.min.Lo.cumulative <- apply.daily(Lo(EURUSD.min), cummin)
EURUSD.min.Hi.cumulative <- apply.daily(Hi(EURUSD.min), cummax)

EURUSD.min.OHLC.cumulative <- cbind(Cl(EURUSD.min), EURUSD.min.Hi.cumulative, EURUSD.min.Lo.cumulative, Cl(EURUSD.min))

> EURUSD.min.Lo.cumulative <- apply.daily(Lo(EURUSD.min), cummin)
> EURUSD.min.Hi.cumulative <- apply.daily(Hi(EURUSD.min), cummax)
> EURUSD.mi.cumulative <- cbind(Op(EURUSD.min), EURUSD.min.Hi.cumulative, EURUSD.min.Lo.cumulative, Cl(EURUSD.min))
Error in merge.xts(..., all = all, fill = fill, suffixes = suffixes) : 
  (list) object cannot be coerced to type 'double'

> head(cummin(Lo(EURUSD.min["2011-09-15"])))
                    EURUSD.sec.Low
2011-09-15 00:00:59        1.37446
2011-09-15 00:01:59        1.37446
2011-09-15 00:02:58        1.37446
2011-09-15 00:03:59        1.37446
2011-09-15 00:04:57        1.37446
2011-09-15 00:05:59        1.37446
Warning message:
timezone of object (GMT) is different than current timezone (UTC). 
> apply.daily(Lo(EURUSD.min["2011-09-15"]), cummin)
Error in array(r, dim = d, dimnames = if (!(is.null(n1 <- names(x[[1L]])) &  : 
  length of 'dimnames' [1] not equal to array extent