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

moved logging arroudn

Browse source
This commit is contained in:
Martin Folkerts 2024-08-30 12:09:13 +02:00
parent 7d671ba69c
commit 499744db6d
4 changed files with 18 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
build_report.sh
View file

@ -48,4 +48,4 @@ elif [ "$(uname)" == "Linux" ]; then
else else
echo "Onbekend systeem" echo "Onbekend systeem"
fi fi
Rscript -e "rmarkdown::render('CI_report_dashboard_planet.Rmd', output_file='$filename', params=list(ref='$ref', report_date='$report_date', data_dir='$data_dir', borders='$borders'))" Rscript -e "rmarkdown::render('CI_report_dashboard_planet.Rmd', output_file='$filename', params=list(ref='$ref', report_date='$report_date', mail_day='$mail_day', data_dir='$data_dir', borders='$borders'))"

17
r_app/CI_report_dashboard_planet.Rmd
View file

@ -23,6 +23,8 @@ editor_options:
# output_file <- params$output_file # output_file <- params$output_file
report_date <- params$report_date report_date <- params$report_date
mail_day <- params$mail_day mail_day <- params$mail_day
borders <- params$borders borders <- params$borders
# #
# #
@ -53,13 +55,6 @@ library(CAST)
# source(here("r_app/report_utils.R")) # source(here("r_app/report_utils.R"))
source("report_utils.R") source("report_utils.R")
# Define the log file path
log_file <- here("laravel_app/storage/app/rmd_log.txt")
# Create a logging function
log_message <- function(message) {
cat(message, "\n", file = log_file, append = TRUE)
}
``` ```
@ -78,6 +73,14 @@ harvest_dir <- here(data_dir, "HarvestData")
weekly_CI_mosaic <- here(laravel_storage_dir, "weekly_mosaic") weekly_CI_mosaic <- here(laravel_storage_dir, "weekly_mosaic")
source(here("r_app", "parameters_project.R")) source(here("r_app", "parameters_project.R"))
log_message("Starting the R Markdown script")
log_message(paste("mail_day params:", params$mail_day))
log_message(paste("report_date params:", params$report_date))
log_message(paste("mail_day variable:", mail_day))
# s2_dir <- "C:/Users/timon/Resilience BV/4002 CMD App - General/4002 CMD Team/4002 TechnicalData/04 WP2 technical/python/chemba_S2/" # s2_dir <- "C:/Users/timon/Resilience BV/4002 CMD App - General/4002 CMD Team/4002 TechnicalData/04 WP2 technical/python/chemba_S2/"
``` ```

BIN
r_app/Rplots.pdf
View file

Binary file not shown.

7
r_app/parameters_project.R
View file

@ -36,3 +36,10 @@ harvesting_data <- read_excel(here(data_dir, "harvest.xlsx")) %>%
age = round(as.numeric(season_end - season_start) / 7, 0) age = round(as.numeric(season_end - season_start) / 7, 0)
) )
# Define the log file path
log_file <- here("laravel_app/storage/app/rmd_log.txt")
# Create a logging function
log_message <- function(message) {
cat(message, "\n", file = log_file, append = TRUE)
}