33 lines
1.1 KiB
R
33 lines
1.1 KiB
R
#!/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))
|
|
}
|