diff --git a/r_app/80_utils_common.R b/r_app/80_utils_common.R
index 3c0f75f..1a6b989 100644
--- a/r_app/80_utils_common.R
+++ b/r_app/80_utils_common.R
@@ -709,8 +709,8 @@ export_field_analysis_excel <- function(field_df, summary_df, project_dir, curre
     )
   )
   
-  rds_filename <- paste0(project_dir, "_kpi_summary_tables_week", sprintf("%02d_%d", current_week, year), ".rds")
-  rds_path <- file.path(reports_dir, rds_filename)
+  rds_filename <- paste0(project_dir, "_field_analysis_week", sprintf("%02d_%d", current_week, year), ".rds")
+  rds_path <- file.path(output_subdir, rds_filename)
   
   saveRDS(kpi_data, rds_path)
   message(paste("✓ Field analysis RDS exported to:", rds_path))