38 lines
800 B
Plaintext
38 lines
800 B
Plaintext
---
|
|
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")
|
|
```
|