SmartCane/r_app/inspect_rds.R
2026-01-06 14:17:37 +01:00

17 lines
454 B
R

#!/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']]))