Timon/SmartCane
1
1
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Martin Folkerts 2024-08-30 10:37:02 +02:00
parent 4dd84b10a5
commit 7d671ba69c
1 changed files with 4 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
r_app/ci_extraction.R
View file

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