- integerIndex <- round( (as.numeric( difftime(dt, data$getTime(1)) ))[1] ) + 1
- if (integerIndex > 0 && integerIndex <= data$getSize())
- {
- #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))
- }
+ integerIndex <- round( as.numeric(
+ difftime(indexAsDate, as.Date(data$getTime(1)[1])) ) ) + 1
+ if (integerIndex >= 1 && integerIndex <= data$getSize())
+ return (integerIndex)