diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd index 9266b86..87a9743 100644 --- a/r_app/CI_report_dashboard_planet.Rmd +++ b/r_app/CI_report_dashboard_planet.Rmd @@ -76,6 +76,7 @@ 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))