diff --git a/r_app/parameters_project.R b/r_app/parameters_project.R index 5e6511a..f690109 100644 --- a/r_app/parameters_project.R +++ b/r_app/parameters_project.R @@ -62,7 +62,7 @@ harvesting_data <- read_excel(here(data_dir, "harvest.xlsx")) %>% age = round(as.numeric(season_end - season_start) / 7, 0) ) -log_file <- here(log_dir, paste0("log_", format(Sys.Date(), "%Y%m%d"), ".log")) +log_file <- here(log_dir, paste0(format(Sys.Date(), "%Y%m%d"), ".log")) # Create a logging function log_message <- function(message) {