wip

r_app/CI_report_dashboard_planet.Rmd

@@ -281,6 +281,12 @@ group_by(model) %>%       # Group by model or other relevant columns
   fill(field, sub_field, .direction = "downup") %>% # Fill down then up within each group
   ungroup()
 
+# Check if tonnage_ha is empty
+if (all(is.na(CI_quadrant$tonnage_ha))) {
+  log_message("Lacking historic harvest data, please provide for yield prediction calculation")
+  knitr::knit_exit()  # Exit the chunk if tonnage_ha is empty
+}
+
 harvesting_data <- harvesting_data %>% rename(season = year)
 
 CI_and_yield <- left_join(CI_quadrant , harvesting_data, by = c("field", "sub_field", "season")) %>% #filter(!is.na(tonnage_ha)) %>%