+ dt = as.POSIXlt(data$getTime(i)[1])
+ if ((is.null(days_in) || i %in% days_in) && .isSameDay(dt$wday, day_ref))
+ {
+ if (!same_season || .isSameSeason(dt$mon+1, month_ref))
+ days = c(days, i)
+ }
+ i = i - 1
+ }
+ if (!operational && j <= data$getSize())
+ {
+ dt = as.POSIXlt(data$getTime(j)[1])
+ if ((is.null(days_in) || j %in% days_in) && .isSameDay(dt$wday, day_ref))
+ {
+ if (!same_season || .isSameSeason(dt$mon+1, month_ref))
+ days = c(days, j)
+ }
+ j = j + 1