This commit is contained in:
Martin Folkerts 2024-07-19 14:02:37 +02:00
parent 19e3f79371
commit 591a30d2a8

View file

@ -75,7 +75,7 @@ source(here("r_app", "parameters_project.R"))
today <- as.character(report_date) today <- as.character(report_date)
mail_day_as_character <- as.character(mail_day) mail_day_as_character <- as.character(mail_day)
report_date_as_week_day = wday(today) report_date_as_week_day = weekdays(as.Date(today))
days_of_week <- c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday") 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 #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) week <- week(today)