From 2988516db282e7f8d1ea5ba526524e7d4a585f6f Mon Sep 17 00:00:00 2001
From: Martin Folkerts <m.folkerts@sobit.nl>
Date: Mon, 15 Jul 2024 10:41:13 +0200
Subject: [PATCH] added conditional to skip field/subfield when no downloads
 available in current rds

---
 r_app/interpolate_growth_model.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/r_app/interpolate_growth_model.R b/r_app/interpolate_growth_model.R
index 907b74f..9c219ca 100644
--- a/r_app/interpolate_growth_model.R
+++ b/r_app/interpolate_growth_model.R
@@ -95,6 +95,9 @@ extract_CI_data <- function(field_names, harvesting_data, field_CI_data, season)
 
   filtered_field_CI_data <- field_CI_data %>%
     filter(sub_field %in% field_names)
+   if (nrow(filtered_field_CI_data) == 0) {
+     return(data.frame())  # Return an empty data frame if no data is found
+   }
 
   # CI <- map_df(field_names, ~ {
   ApproxFun <- approxfun(x = filtered_field_CI_data$Date, y = filtered_field_CI_data$value)