# Quick script to inspect band structure of merged_tif_8b files
library(terra)
library(here)

# Pick one file to inspect
test_file <- here("laravel_app/storage/app/esa/merged_tif_8b/2025-11-15.tif")

cat("=== INSPECTING BAND STRUCTURE ===\n\n")
cat(sprintf("File: %s\n\n", basename(test_file)))

# Load raster
rast_obj <- rast(test_file)

cat(sprintf("Number of bands: %d\n\n", nlyr(rast_obj)))

# Check each band
for (i in 1:nlyr(rast_obj)) {
  band <- rast_obj[[i]]
  band_vals <- values(band, mat = FALSE)
  band_vals <- band_vals[!is.na(band_vals)]
  
  cat(sprintf("Band %d:\n", i))
  cat(sprintf("  Name: %s\n", names(band)))
  cat(sprintf("  Values range: %.2f to %.2f\n", min(band_vals, na.rm = TRUE), max(band_vals, na.rm = TRUE)))
  cat(sprintf("  Mean: %.2f\n", mean(band_vals, na.rm = TRUE)))
  cat(sprintf("  Non-NA pixels: %d\n", length(band_vals)))
  cat(sprintf("  Sample values: %s\n\n", paste(head(band_vals, 10), collapse = ", ")))
}