- #WARNING: if series start at date >0h, result must be shifted
- date1 = as.POSIXlt(data$getTime(1)[1])
- date2 = as.POSIXlt(data$getTime(2)[1])
- shift = (date1$year==date2$year && date1$mon==date2$mon && date1$mday==date2$mday)
- return (integerIndex + ifelse(shift,1,0))
+ #WARNING: if index>=2 && series start at date >0h, result must be shifted
+ #Convention: if first date asked, return first matching index (i.e.: 1)
+ shift = 0
+ if (integerIndex >= 2)
+ {
+ date1 = as.POSIXlt(data$getTime(1)[1])
+ date2 = as.POSIXlt(data$getTime(2)[1])
+ shift = (date1$year==date2$year && date1$mon==date2$mon && date1$mday==date2$mday)
+ }
+ return (integerIndex + shift)