From 3e74c72da06d5adeb8c94375109d6d780d83fea2 Mon Sep 17 00:00:00 2001 From: Martin Folkerts Date: Fri, 19 Jul 2024 15:54:00 +0200 Subject: [PATCH] okay --- r_app/CI_report_dashboard_planet.Rmd | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd index d659813..a1d3866 100644 --- a/r_app/CI_report_dashboard_planet.Rmd +++ b/r_app/CI_report_dashboard_planet.Rmd @@ -79,8 +79,14 @@ report_date_as_week_day = weekdays(as.Date(today)) 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 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)){ 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) @@ -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") 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_3 <- week -3 # sprintf("%02d", week(today_minus_3)) + +week_minus_1 <- sprintf("%02d", week(today_minus_1)) +week_minus_2 <- sprintf("%02d", week(today_minus_2)) +week_minus_3 <- sprintf("%02d", week(today_minus_3)) week <- sprintf("%02d", week)