36 lines
1.1 KiB
R
36 lines
1.1 KiB
R
# 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")
|
|
}
|