Timon/SmartCane
1
1
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

okay

Browse source
This commit is contained in:
Martin Folkerts 2024-07-19 14:45:41 +02:00
parent 14dee6def4
commit 86532128aa
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
r_app/CI_report_dashboard_planet.Rmd
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") 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)
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 week <- week(today) + 1
} }