# Test CI Interactive Visualization
# ================================
# Simple test script to verify CI functions work

cat("Testing CI Interactive Visualization...\n")

# Load required libraries
library(terra)
library(sf)
library(tmap)

# Set working directory to the experiment folder
# (This script should be run from the interactive_ci_visualization folder)

# Source the CI analysis functions
source("ci_analysis_functions.R")

# Test 1: Check if we can find CI weekly mosaics
cat("\n=== Test 1: Check CI Weekly Data ===\n")
data_dir <- "../../../laravel_app/storage/app/aura/weekly_mosaic"
cat("Data directory:", data_dir, "\n")
cat("Directory exists:", file.exists(data_dir), "\n")

if (file.exists(data_dir)) {
  files <- list.files(data_dir, pattern = "\\.tif$")
  cat("Available CI files:", length(files), "\n")
  cat("Files:", paste(files, collapse = ", "), "\n")
  
  # Test getting available weeks
  available_weeks <- get_available_ci_weeks(data_dir)
  cat("Available weeks:", paste(available_weeks, collapse = ", "), "\n")
  
  # Test getting latest week
  latest_week <- get_latest_ci_week(data_dir)
  cat("Latest week:", latest_week, "\n")
}

# Test 2: Try loading one CI file
cat("\n=== Test 2: Load Single CI File ===\n")
if (exists("latest_week")) {
  test_ci <- load_ci_weekly(latest_week, data_dir = data_dir)
  
  if (!is.null(test_ci)) {
    cat("✓ CI data loaded successfully\n")
    cat("  Dimensions:", dim(test_ci), "\n")
    cat("  CRS:", as.character(crs(test_ci)), "\n")
    ci_range <- global(test_ci, range, na.rm = TRUE)
    cat("  Value range:", round(ci_range[1,1], 3), "to", round(ci_range[2,1], 3), "\n")
  } else {
    cat("✗ Failed to load CI data\n")
  }
}

# Test 3: Check field boundaries
cat("\n=== Test 3: Check Field Boundaries ===\n")
field_file <- "../../../pivot.geojson"
cat("Field boundaries file:", field_file, "\n")
cat("File exists:", file.exists(field_file), "\n")

if (file.exists(field_file)) {
  fields <- st_read(field_file, quiet = TRUE)
  cat("✓ Field boundaries loaded\n")
  cat("  Number of fields:", nrow(fields), "\n")
  cat("  Columns:", paste(names(fields), collapse = ", "), "\n")
}

# Test 4: Test comparison data loading
cat("\n=== Test 4: Test Comparison Data Loading ===\n")
if (file.exists(data_dir)) {
  tryCatch({
    comparison_data <- load_ci_comparison_data(data_dir)
    cat("✓ Comparison data loaded successfully\n")
    cat("  Current week:", comparison_data$current_week, "\n")
    cat("  Previous week:", comparison_data$previous_week, "\n")
    cat("  Current CI available:", !is.null(comparison_data$current_ci), "\n")
    cat("  Previous CI available:", !is.null(comparison_data$previous_ci), "\n")
  }, error = function(e) {
    cat("✗ Error loading comparison data:", e$message, "\n")
  })
}

cat("\n=== Test Complete ===\n")
cat("If all tests passed, you can run the Interactive_CI_Report.Rmd\n")