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

wip

Browse source
This commit is contained in:
Martin Folkerts 2024-07-19 13:28:14 +02:00
parent fcfc683513
commit 19e3f79371
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
r_app/CI_report_dashboard_planet.Rmd
View file

@ -21,7 +21,7 @@ editor_options:
# knitr::opts_chunk$set(echo = TRUE)
# output_file <- params$output_file
report_date <- params$report_date
report_date <- params$mail_day
mail_day <- params$mail_day
#
#
# # Activeer de renv omgeving
@ -73,16 +73,19 @@ source(here("r_app", "parameters_project.R"))
```{r week, message=FALSE, warning=FALSE, include=FALSE}
today <- as.character(report_date)
mail_day_as_character <- as.character(mail_day)
report_date_as_week_day = wday(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
if (which(days_of_week == report_date_as_week_day) > which(days_of_week == mail_day)){
week <- week(today) + 1
} else {
week <- week(today)
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)
# week <- 25