29 lines
953 B
R
29 lines
953 B
R
# 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 = ", ")))
|
|
}
|