updated harvest datata stadnadr

r_app/2_CI_data_prep.R

@@ -333,9 +333,9 @@ pivot_stats_long <- pivot_stats2 %>%
 # 
 # pivot_select_model_Data_2022 <- harvesting_data %>% filter(Year == 2022) %>% pull(Field)
 
-pivot_select_model_Data_2023 <- harvesting_data %>% filter(Year == 2023) %>% pull(subField)
+pivot_select_model_Data_2023 <- harvesting_data %>% filter(Year == 2023) %>% filter(!is.na(Season_start))  %>% pull(subField)
 
-pivot_select_model_Data_2024 <- harvesting_data %>% filter(Year == 2024) %>% pull(subField)
+pivot_select_model_Data_2024 <- harvesting_data %>% filter(Year == 2024)%>% filter(!is.na(Season_start)) %>% pull(subField) 
 
 # pivots_dates_Data_2022 <- pivots_dates0 %>% filter(!is.na(season_end_2022))
 # pivot_select_model_Data_2022 <- unique(pivots_dates_Data_2022$pivot_quadrant )
@@ -401,3 +401,4 @@ message('show head')
 
 saveRDS(CI_all, here(cumulative_CI_vals_dir,"All_pivots_Cumulative_CI_quadrant_year_v2.rds"))
 message('rds saved')
+