diff --git a/r_app/80_utils_agronomic_support.R b/r_app/80_utils_agronomic_support.R index d649775..7bf6ebd 100644 --- a/r_app/80_utils_agronomic_support.R +++ b/r_app/80_utils_agronomic_support.R @@ -530,7 +530,7 @@ export_kpi_data <- function(all_kpis, kpi_summary, output_dir, week, year, proje } # Export all KPI tables to a single Excel file - excel_file <- paste0(project_dir, "_field_analysis_week", sprintf("%02d_%d", week, year), ".xlsx") + excel_file <- paste0(project_dir, "_kpi_summary_tables_week", sprintf("%02d_%d", week, year), ".xlsx") excel_path <- file.path(output_dir, excel_file) sheets <- list( @@ -546,7 +546,7 @@ export_kpi_data <- function(all_kpis, kpi_summary, output_dir, week, year, proje message(paste("✓ AURA KPI data exported to:", excel_path)) # Also export to RDS for programmatic access - rds_file <- paste0(project_dir, "_field_analysis_week", sprintf("%02d_%d", week, year), ".rds") + rds_file <- paste0(project_dir, "_kpi_summary_tables_week", sprintf("%02d_%d", week, year), ".rds") rds_path <- file.path(output_dir, rds_file) # Save complete structure including metadata