R/adjustDates.forecast.R

In SantanderMetGroup/ecomsUDG.Raccess: R interface to the ECOMS User Data Gateway

adjustDates.forecast <- function(foreTimePars) {
      dates <- as.POSIXct(do.call("c", foreTimePars$forecastDates[[1]]))
      interval <- 0
      if (foreTimePars$aggr.m != "none") {
            mon.len <- sapply(dates, ndays)
            interval <- mon.len * 86400
      } else if (foreTimePars$aggr.d != "none") {
            dates <- format(as.Date(substr(dates, 1, 10)), format = "%Y-%m-%d %H:%M:%S", usetz = TRUE) 
            interval <- 86400
      }
      formato <- ifelse(interval[1] == 0, "%Y-%m-%d %H:%M:%S", "%Y-%m-%d")
      dates.end <- format(as.POSIXct(as.POSIXlt(dates, tz = "GMT") + interval), format = formato, usetz = TRUE)
      dates.start <- format(as.POSIXct(as.POSIXlt(dates, tz = "GMT"), tz = "GMT"), format = formato, usetz = TRUE)
      return(list("start" = dates.start, "end" = dates.end))
}
# End