From 3813c40ac66a4c2adf3e420318e06508ed8d66f0 Mon Sep 17 00:00:00 2001 From: Martin Folkerts Date: Fri, 19 Jul 2024 14:49:05 +0200 Subject: [PATCH] okay --- r_app/CI_report_dashboard_planet.Rmd | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd index 7727976..d5e4864 100644 --- a/r_app/CI_report_dashboard_planet.Rmd +++ b/r_app/CI_report_dashboard_planet.Rmd @@ -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))