Timon
07aee7bed1
- Replace raster package with terra throughout the codebase - Update map visualizations with better layout and legends - Add descriptive headers to report sections - Improve map legend positioning and sizing - Enhance error handling for missing data - Remove redundant legends in field-specific visualizations - Optimize figure dimensions to prevent page overflow - Expand documentation of CI index and report components - Update package dependencies in packages.
102 lines
3.3 KiB
R
102 lines
3.3 KiB
R
# filepath: c:\Users\timon\Resilience BV\4020 SCane ESA DEMO - Documenten\General\4020 SCDEMO Team\4020 TechnicalData\WP3\smartcane\r_app\mosaic_creation.R
|
|
#
|
|
# MOSAIC_CREATION.R
|
|
# ===============
|
|
# This script creates weekly mosaics from daily satellite imagery.
|
|
# It handles command-line arguments and initiates the mosaic creation process.
|
|
#
|
|
# Usage: Rscript mosaic_creation.R [end_date] [offset] [project_dir] [file_name]
|
|
# - end_date: End date for processing (YYYY-MM-DD format)
|
|
# - offset: Number of days to look back from end_date
|
|
# - project_dir: Project directory name (e.g., "chemba")
|
|
# - file_name: Optional custom output file name
|
|
#
|
|
|
|
# 1. Load required packages
|
|
# -----------------------
|
|
suppressPackageStartupMessages({
|
|
library(sf)
|
|
library(terra)
|
|
library(tidyverse)
|
|
library(lubridate)
|
|
library(here)
|
|
})
|
|
|
|
# 2. Process command line arguments and run mosaic creation
|
|
# ------------------------------------------------------
|
|
main <- function() {
|
|
# Capture command line arguments
|
|
args <- commandArgs(trailingOnly = TRUE)
|
|
|
|
# Process end_date argument with default
|
|
if (length(args) >= 1 && !is.na(args[1])) {
|
|
end_date <- as.Date(args[1])
|
|
if (is.na(end_date)) {
|
|
message("Invalid end_date provided. Using current date.")
|
|
#end_date <- Sys.Date()
|
|
end_date <- "2023-10-01" # Default date for testing
|
|
}
|
|
} else {
|
|
# Default to current date if no argument is provided
|
|
#end_date <- Sys.Date()
|
|
end_date <- "2023-10-01" # Default date for testing
|
|
message("No end_date provided. Using current date:", format(end_date))
|
|
}
|
|
|
|
# Process offset argument with default
|
|
if (length(args) >= 2 && !is.na(args[2])) {
|
|
offset <- as.numeric(args[2])
|
|
if (is.na(offset) || offset <= 0) {
|
|
message("Invalid offset provided. Using default (7 days).")
|
|
offset <- 7
|
|
}
|
|
} else {
|
|
# Default to 7 days if no argument is provided
|
|
offset <- 7
|
|
message("No offset provided. Using default:", offset, "days")
|
|
}
|
|
|
|
# Process project_dir argument with default
|
|
if (length(args) >= 3 && !is.na(args[3])) {
|
|
project_dir <- as.character(args[3])
|
|
} else {
|
|
# Default project directory
|
|
project_dir <- "chemba"
|
|
message("No project_dir provided. Using default:", project_dir)
|
|
}
|
|
|
|
# 3. Initialize project configuration
|
|
# --------------------------------
|
|
source("r_app/parameters_project.R")
|
|
source("r_app/mosaic_creation_utils.R")
|
|
|
|
# 4. Generate date range for processing
|
|
# ---------------------------------
|
|
dates <- date_list(end_date, offset)
|
|
log_message(paste("Processing data for week", dates$week, "of", dates$year))
|
|
|
|
# Create output filename
|
|
file_name_tif <- if (length(args) >= 4 && !is.na(args[4])) {
|
|
as.character(args[4])
|
|
} else {
|
|
paste0("week_", sprintf("%02d", dates$week), "_", dates$year, ".tif")
|
|
}
|
|
|
|
log_message(paste("Output will be saved as:", file_name_tif))
|
|
|
|
# 5. Create weekly mosaic using the function from utils
|
|
# -------------------------------------------------
|
|
create_weekly_mosaic(
|
|
dates = dates,
|
|
field_boundaries = field_boundaries,
|
|
daily_vrt_dir = daily_vrt,
|
|
merged_final_dir = merged_final,
|
|
output_dir = weekly_CI_mosaic,
|
|
file_name_tif = file_name_tif,
|
|
create_plots = TRUE
|
|
)
|
|
}
|
|
|
|
# Run the main function if the script is executed directly
|
|
main()
|