#!/usr/bin/env Rscript
# Temporary script to inspect KPI structure

x <- readRDS('laravel_app/storage/app/john/reports/kpis/field_level/AURA_KPI_week_06_2026.rds')

cat("===== KPI RDS Structure =====\n")
cat("Names:", paste(names(x), collapse=", "), "\n\n")

cat("---- UNIFORMITY TABLE ----\n")
cat("Class:", class(x$uniformity), "\n")
if (is.data.frame(x$uniformity)) {
  cat("Columns:", paste(names(x$uniformity), collapse=", "), "\n")
  print(head(x$uniformity, 3))
} else if (is.list(x$uniformity)) {
  cat("List contents:", paste(names(x$uniformity), collapse=", "), "\n")
}

cat("\n---- AREA CHANGE TABLE ----\n")
cat("Class:", class(x$area_change), "\n")
if (is.data.frame(x$area_change)) {
  cat("Columns:", paste(names(x$area_change), collapse=", "), "\n")
  print(head(x$area_change, 3))
} else if (is.list(x$area_change)) {
  cat("List contents:", paste(names(x$area_change), collapse=", "), "\n")
}

cat("\n---- TCH FORECASTED TABLE ----\n")
cat("Class:", class(x$tch_forecasted), "\n")
if (is.data.frame(x$tch_forecasted)) {
  cat("Columns:", paste(names(x$tch_forecasted), collapse=", "), "\n")
  print(head(x$tch_forecasted, 3))
}