#!/usr/bin/env Rscript

rds_path <- '../laravel_app/storage/app/angata/reports/kpis/angata_kpi_summary_tables_week49.rds'
data <- readRDS(rds_path)

cat("=== RDS Top-level names ===\n")
print(names(data))

cat("\n=== field_analysis columns ===\n")
print(names(data[['field_analysis']]))

cat("\n=== First row of field_analysis (all columns) ===\n")
print(data[['field_analysis']][1, ])

cat("\n=== Data types ===\n")
print(str(data[['field_analysis']]))