# Quick script to inspect the actual band structure of 8-band imagery

library(terra)

sample_tif <- "laravel_app/storage/app/esa/merged_tif_8b/2025-01-15.tif"
r <- rast(sample_tif)

cat("Number of bands:", nlyr(r), "\n\n")

# Check each band's values
for (i in 1:nlyr(r)) {
  band <- r[[i]]
  vals <- values(band, mat=FALSE)
  vals_sample <- vals[!is.na(vals)][1:100]
  
  cat("Band", i, ":\n")
  cat("  Name:", names(r)[i], "\n")
  cat("  Sample values:", paste(head(vals_sample, 10), collapse = ", "), "\n")
  cat("  Min:", min(vals, na.rm=TRUE), "\n")
  cat("  Max:", max(vals, na.rm=TRUE), "\n")
  cat("  Mean:", mean(vals, na.rm=TRUE), "\n\n")
}

# Check if band 9 is actually a mask or quality band
cat("\nBand 9 unique values (first 50):\n")
band9_vals <- values(r[[9]], mat=FALSE)
print(head(unique(band9_vals[!is.na(band9_vals)]), 50))