moved end_date and added a is.na wrapping to set when running in R_Studio

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