diff --git a/r_app/80_utils_common.R b/r_app/80_utils_common.R index 04b1793..3c0f75f 100644 --- a/r_app/80_utils_common.R +++ b/r_app/80_utils_common.R @@ -375,7 +375,7 @@ calculate_gap_filling_kpi <- function(ci_raster, field_boundaries) { if (n_fields_sf != n_fields_vect) { warning(paste("Field boundary mismatch: nrow(field_boundaries)=", n_fields_sf, "vs length(field_boundaries_vect)=", n_fields_vect, ". Using actual SpatVector length.")) } - + field_results <- data.frame() for (i in seq_len(nrow(field_boundaries))) { @@ -423,6 +423,7 @@ calculate_gap_filling_kpi <- function(ci_raster, field_boundaries) { )) } } +}