# Load the created RDS file
rds_file <- "laravel_app/storage/app/john/reports/kpis/field_level/john_kpi_summary_tables_week06_2026.rds"
data <- readRDS(rds_file)

# Check structure
cat("Top-level structure:\n")
cat("Names:", paste(names(data), collapse=", "), "\n")
cat("Has summary_tables:", "summary_tables" %in% names(data), "\n")
cat("Has all_kpis:", "all_kpis" %in% names(data), "\n")
cat("Has field_details:", "field_details" %in% names(data), "\n\n")

# Check summary_tables structure
if (!is.null(data$summary_tables)) {
  cat("Summary tables (KPI names):\n")
  cat("  -", paste(names(data$summary_tables), collapse=", "), "\n\n")
  
  # Check one example
  cat("Uniformity KPI (first 3 rows):\n")
  print(head(data$summary_tables$uniformity, 3))
}

cat("\n---\n")
cat("all_kpis structure:\n")
if (!is.null(data$all_kpis)) {
  cat("  -", paste(names(data$all_kpis), collapse=", "), "\n")
}

cat("\n---\n")
cat("field_details structure:\n")
if (!is.null(data$field_details)) {
  cat("Columns:", paste(colnames(data$field_details), collapse=", "), "\n")
  print(data$field_details)
} else {
  cat("  NULL (expected if field_boundaries_sf had issues)\n")
}