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)