diff --git a/r_app/2_CI_data_prep.R b/r_app/2_CI_data_prep.R index 5a57bbb..8c509ca 100644 --- a/r_app/2_CI_data_prep.R +++ b/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') + diff --git a/r_app/CI_report_dashboard_planet_files/figure-html/ci_diff_kaart-1.png b/r_app/CI_report_dashboard_planet_files/figure-html/ci_diff_kaart-1.png index b98c6c5..10c8573 100644 Binary files a/r_app/CI_report_dashboard_planet_files/figure-html/ci_diff_kaart-1.png and b/r_app/CI_report_dashboard_planet_files/figure-html/ci_diff_kaart-1.png differ diff --git a/r_app/CI_report_dashboard_planet_files/figure-html/ci_overzicht_kaart-1.png b/r_app/CI_report_dashboard_planet_files/figure-html/ci_overzicht_kaart-1.png index 3157a58..c28951a 100644 Binary files a/r_app/CI_report_dashboard_planet_files/figure-html/ci_overzicht_kaart-1.png and b/r_app/CI_report_dashboard_planet_files/figure-html/ci_overzicht_kaart-1.png differ