diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd
index d5e4864..306c68f 100644
--- a/r_app/CI_report_dashboard_planet.Rmd
+++ b/r_app/CI_report_dashboard_planet.Rmd
@@ -95,14 +95,14 @@ 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 <- week - 1
-today_minus_2 <- week - 2
-today_minus_3 <- week - 3
+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 <- sprintf("%02d", week)
-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_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))
 
 year = year(today)
 year_1 = year(today_minus_1)