From 19e3f793712ee5d0adc0e3631e4bc989dc0c624b Mon Sep 17 00:00:00 2001 From: Martin Folkerts Date: Fri, 19 Jul 2024 13:28:14 +0200 Subject: [PATCH] wip --- r_app/CI_report_dashboard_planet.Rmd | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd index 55d880f..c0dbfcb 100644 --- a/r_app/CI_report_dashboard_planet.Rmd +++ b/r_app/CI_report_dashboard_planet.Rmd @@ -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) +if (which(days_of_week == report_date_as_week_day) > which(days_of_week == mail_day_as_character)){ week <- week(today) + 1 -} else { - week <- week(today) } + + # week <- week(today) # week <- 25