diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd
index c0cd97e..7727976 100644
--- a/r_app/CI_report_dashboard_planet.Rmd
+++ b/r_app/CI_report_dashboard_planet.Rmd
@@ -79,7 +79,7 @@ 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)
-if (which(days_of_week == report_date_as_week_day) > which(days_of_week == mail_day_as_character+1)){
+if (which(days_of_week == report_date_as_week_day) > which(days_of_week == mail_day_as_character)){
   week <- week(today) + 1
 }