wip

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)
+
 }