70 lines
1.5 KiB
Plaintext
70 lines
1.5 KiB
Plaintext
---
|
|
title: "SAR Analysis - Quick Test"
|
|
output:
|
|
html_document:
|
|
self_contained: false
|
|
---
|
|
|
|
```{r setup, include=FALSE}
|
|
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
|
|
|
|
# Check working directory
|
|
if (basename(getwd()) == "r_app") {
|
|
setwd("..")
|
|
}
|
|
```
|
|
|
|
# Quick SAR Test
|
|
|
|
```{r test-loading}
|
|
# Test basic loading
|
|
cat("Testing SAR data loading...\n")
|
|
|
|
library(terra, quietly = TRUE)
|
|
library(sf, quietly = TRUE)
|
|
library(tmap, quietly = TRUE)
|
|
|
|
# Load field boundaries
|
|
field_boundaries <- st_read("pivot.geojson", quiet = TRUE)
|
|
cat("Loaded", nrow(field_boundaries), "fields\n")
|
|
|
|
# Load one SAR file
|
|
sar_file <- "python_scripts/data/aura/weekly_SAR_mosaic/week_33_2025_VV_dB_filtered.tif"
|
|
if (file.exists(sar_file)) {
|
|
sar_data <- rast(sar_file)
|
|
cat("✓ SAR data loaded:", dim(sar_data), "\n")
|
|
|
|
# Set tmap to interactive mode
|
|
tmap_mode("view")
|
|
|
|
# Create simple interactive map
|
|
map <- tm_shape(sar_data) +
|
|
tm_raster(
|
|
title = "VV Backscatter (dB)",
|
|
palette = "viridis",
|
|
alpha = 0.8
|
|
) +
|
|
tm_shape(field_boundaries) +
|
|
tm_polygons(
|
|
alpha = 0.2,
|
|
col = "lightblue",
|
|
border.col = "white",
|
|
border.lwd = 2,
|
|
popup.vars = c("Field" = "Name"),
|
|
id = "Name"
|
|
) +
|
|
tm_layout(title = "SAR Week 33 - Interactive Test")
|
|
|
|
map
|
|
} else {
|
|
cat("✗ SAR file not found\n")
|
|
}
|
|
```
|
|
|
|
**Interactive Features:**
|
|
- Zoom in/out with mouse wheel
|
|
- Pan by dragging
|
|
- Click on field boundaries for popup info
|
|
- Toggle layers with layer control
|
|
- Different base maps available
|