From 7d671ba69cb28b94f4e34e18f1ea085f45e91dda Mon Sep 17 00:00:00 2001
From: Martin Folkerts <m.folkerts@sobit.nl>
Date: Fri, 30 Aug 2024 10:37:02 +0200
Subject: [PATCH] moved end_date and added a is.na wrapping to set when running
 in R_Studio

---
 r_app/ci_extraction.R | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/r_app/ci_extraction.R b/r_app/ci_extraction.R
index bc08d3a..d9b609a 100644
--- a/r_app/ci_extraction.R
+++ b/r_app/ci_extraction.R
@@ -17,7 +17,9 @@ if (length(args) == 0) {
 
 # Converteer het eerste argument naar een numerieke waarde
 end_date <- as.Date(args[1])
-
+if (is.na(end_date)) {
+end_date <- lubridate::dmy("28-08-2024")
+}
 
 offset <- as.numeric(args[2])
 # Controleer of weeks_ago een geldig getal is
@@ -26,6 +28,7 @@ if (is.na(offset)) {
   offset <- 7
 }
 
+week <- week(end_date)
 # Converteer het tweede argument naar een string waarde
 project_dir <- as.character(args[3])
 
@@ -34,7 +37,6 @@ if (!is.character(project_dir)) {
   project_dir <- "chemba"
 }
 
-
 laravel_storage_dir <- here("laravel_app/storage/app", project_dir)
 #preparing directories
 planet_tif_folder <- here(laravel_storage_dir, "merged_tif")
@@ -71,14 +73,9 @@ dir.create(here(daily_vrt))
 dir.create(merged_final)
 dir.create(harvest_dir)
 
-end_date <- lubridate::dmy("28-08-2024")
-week <- week(end_date)
-
-
 dates <- date_list(end_date, offset)
 print(dates)
 
-
 raster_files <- list.files(planet_tif_folder,full.names = T, pattern = ".tif")
 
 filtered_files  <- map(dates$days_filter, ~ raster_files[grepl(pattern = .x, x = raster_files)]) %>%
@@ -86,8 +83,6 @@ filtered_files  <- map(dates$days_filter, ~ raster_files[grepl(pattern = .x, x =
   flatten_chr()
 head(filtered_files)
 
-
-
 vrt_list <- list()
 
 for (file in filtered_files) {
@@ -106,7 +101,6 @@ for (file in filtered_files) {
   gc()
 }
 
-
 raster_files_NEW <- list.files(merged_final,full.names = T, pattern = ".tif")
 
 # Define the path to the file