---
title: "CI Visualization Test"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)
```

# CI Visualization Test

```{r test}
cat("Testing basic functionality...\n")

# Try to load libraries
library(terra)
cat("✓ Terra loaded\n")

library(sf)
cat("✓ SF loaded\n")

library(tmap)
cat("✓ tmap loaded\n")

# Test data path
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 files:", length(files), "\n")
  cat("Files:", paste(head(files, 3), collapse = ", "), "...\n")
}

cat("Test completed successfully!\n")
```