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 15:54:00 +02:00
parent 3a081bf72a
commit 3e74c72da0
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
r_app/CI_report_dashboard_planet.Rmd
View file

@ -79,8 +79,14 @@ report_date_as_week_day = weekdays(as.Date(today))
days_of_week <- c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday") days_of_week <- c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
#als de index of report_date_as_week_day groter dan de index van de mail_day dan moet de week + 1 #als de index of report_date_as_week_day groter dan de index van de mail_day dan moet de week + 1
week <- week(today) week <- week(today)
today_minus_1 <- as.character(ymd(today) - 7)
today_minus_2 <- as.character(ymd(today) - 14)
today_minus_3 <- as.character(ymd(today) - 21)
if (which(days_of_week == report_date_as_week_day) > which(days_of_week == mail_day_as_character)){ if (which(days_of_week == report_date_as_week_day) > which(days_of_week == mail_day_as_character)){
week <- week(today) + 1 week <- week(today) + 1
today_minus_1 <- as.character(ymd(today))
today_minus_2 <- as.character(ymd(today) - 7)
today_minus_3 <- as.character(ymd(today) - 14)
} }
# week <- week(today) # week <- week(today)
@ -95,13 +101,11 @@ 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") #title_var <- paste0("CI dashboard week ", week, " - all pivots dashboard using 3x3 meter resolution")
subtitle_var <- paste("Report generated on", Sys.Date()) 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)
week_minus_1 <- week -1 # sprintf("%02d", week(today_minus_1))
week_minus_2 <- week -2 # sprintf("%02d", week(today_minus_2)) week_minus_1 <- sprintf("%02d", week(today_minus_1))
week_minus_3 <- week -3 # sprintf("%02d", week(today_minus_3)) week_minus_2 <- sprintf("%02d", week(today_minus_2))
week_minus_3 <- sprintf("%02d", week(today_minus_3))
week <- sprintf("%02d", week) week <- sprintf("%02d", week)