This commit is contained in:
Martin Folkerts 2024-07-19 14:38:50 +02:00
parent 0109a57b04
commit 861244fec1

View file

@ -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+1)){
week <- week(today) + 1
}