diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd index 306c68f..d659813 100644 --- a/r_app/CI_report_dashboard_planet.Rmd +++ b/r_app/CI_report_dashboard_planet.Rmd @@ -99,10 +99,11 @@ 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 <- 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 <- sprintf("%02d", week) + year = year(today) year_1 = year(today_minus_1)