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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.