From 0b1826dccb15c087f24bc8976b360e85a7bb396f Mon Sep 17 00:00:00 2001
From: Martin Folkerts <m.folkerts@sobit.nl>
Date: Mon, 15 Jul 2024 11:45:21 +0200
Subject: [PATCH] wip

---
 r_app/parameters_project.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/r_app/parameters_project.R b/r_app/parameters_project.R
index 23ed5a4..ce5547e 100644
--- a/r_app/parameters_project.R
+++ b/r_app/parameters_project.R
@@ -94,6 +94,11 @@ if(project_dir == "chemba"){
    harvesting_data <- read_excel(here(data_dir, "harvest.xlsx"),
                 col_types = c("numeric", "numeric", "numeric",
                               "date", "date", "numeric", "text",
-                              "numeric", "numeric"))
+                              "numeric", "numeric")) %>%
+                 mutate(season_end = case_when(
+                   season_end > Sys.Date() ~ Sys.Date(),
+                   TRUE ~ season_end),
+                   age = round(as.numeric(season_end - season_start)/7),1)
+
 }