Timon/SmartCane
1
1
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

wip

Browse source
This commit is contained in:
Timon 2025-04-22 17:43:11 +02:00
parent 29e2867b41
commit fbc8f5e11b
2 changed files with 1301 additions and 172 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1461
python_app/planet_download.ipynb
View file

File diff suppressed because one or more lines are too long

12
r_app/CI_report_dashboard_planet.Rmd
View file

@ -277,9 +277,15 @@ The below table shows estimates of the biomass if you would harvest them now.
#CI_quadrant <- readRDS(here(cumulative_CI_vals_dir,"All_pivots_Cumulative_CI_quadrant_year_v2.rds")) #CI_quadrant <- readRDS(here(cumulative_CI_vals_dir,"All_pivots_Cumulative_CI_quadrant_year_v2.rds"))
CI_quadrant <- readRDS(here(cumulative_CI_vals_dir,"All_pivots_Cumulative_CI_quadrant_year_v2.rds")) %>% CI_quadrant <- readRDS(here(cumulative_CI_vals_dir,"All_pivots_Cumulative_CI_quadrant_year_v2.rds")) %>%
group_by(model) %>% # Group by model or other relevant columns group_by(model) %>% # Group by model or other relevant columns
fill(field, sub_field, .direction = "downup") %>% # Fill down then up within each group fill(field, sub_field, .direction = "downup") %>% # Fill down then up within each group
ungroup() 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) harvesting_data <- harvesting_data %>% rename(season = year)