1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| hcEndDateTmp = userDateStart
if((hcStartTime<="23:59") & (hcEndTime >= "00:00")){
hcEndDateTmp$mday = userDateStart$mday + 1
}
hcEndDate = strftime(hcEndDateTmp, "%Y-%m-%d")
hcStart = ""
hcEnd = as.POSIXlt(paste(hcEndDate, hcEndTime))
for(rowNum in 1:nbJour){
...
hcStart = as.POSIXlt(ecs$startAt[[rowNum]])
ecsInterval2 = datePower[(datePower$DateTime>=hcStart)&(datePower$DateTime<=hcEnd), ]
...
hcEnd$mday = hcEnd$mday + 1
cat("DEBUG: rowNum=", rowNum, "is.na(hcEnd)=", is.na(hcEnd), "\n")
} |
Partager