Show last X weeks in the shiny app

[mhoehle]

@dirkschumacher The number put here doesn't appear to be interpreted as weeks. For example "6" only gives 1/2 weeks. Could it be that it's interpreted as days if the time series has epochAsDate=TRUE and correctly as time clicks otherwise?

[dirkschumacher]

Probably, yes. So either changing it to "show last X days" or multiply by 7.

[mhoehle]

It's a little more complicated, because it depends on whether the sts class uses epochAsDate is true. Something like:

if (x@epochAsDate) {
firstDayToShow <- tail(epoch(x),n=1) - 7 * nWeeksBack
} else {
oneWeekInFreqUnits <- switch( as.character(object@freq), "12" = 1/4,"52" = 1,"365" = 7)
firstDayToShow <- nrow(x) - round(oneWeekInFreqUnits * nWeeksBack)
}

[dirkschumacher]

Cool. Ok, I will add it either tomorrow or the day after

[mhoehle]

Cool, let me know and I'll be happy to test it. Note that the above is pseudo code, could be that the variable names are slighly different.