Timon/SmartCane
1
1
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

okay

Browse source
This commit is contained in:
Martin Folkerts 2024-07-19 14:49:05 +02:00
parent 86532128aa
commit 3813c40ac6
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
r_app/CI_report_dashboard_planet.Rmd
View file

@ -95,9 +95,9 @@ if (which(days_of_week == report_date_as_week_day) > which(days_of_week == mail_
#title_var <- paste0("CI dashboard week ", week, " - all pivots dashboard using 3x3 meter resolution")
subtitle_var <- paste("Report generated on", Sys.Date())
today_minus_1 <- as.character(ymd(today) - 7)
today_minus_2 <- as.character(ymd(today) - 14)
today_minus_3 <- as.character(ymd(today) - 21)
today_minus_1 <- week - 1
today_minus_2 <- week - 2
today_minus_3 <- week - 3
week <- sprintf("%02d", week)
week_minus_1 <- sprintf("%02d", week(today_minus_1))