From b4a520264074876f8d8e26ff1084fb8b345d68c5 Mon Sep 17 00:00:00 2001 From: Kasia-MIR Date: Mon, 18 May 2026 15:36:48 +0200 Subject: [PATCH] Update 001_read_and_prepare_data_RDBES_CS.R --- .../001_read_and_prepare_data_RDBES_CS.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/RegionalOverviews/data_preparation_RDBES/001_read_and_prepare_data_RDBES_CS.R b/RegionalOverviews/data_preparation_RDBES/001_read_and_prepare_data_RDBES_CS.R index c9329cc..ded895a 100644 --- a/RegionalOverviews/data_preparation_RDBES/001_read_and_prepare_data_RDBES_CS.R +++ b/RegionalOverviews/data_preparation_RDBES/001_read_and_prepare_data_RDBES_CS.R @@ -43,15 +43,15 @@ getwd() year_start <- 2023 year_end <- 2025 time_tag <- format(Sys.time(), "%Y%m%d") -target_region <- 'RCG_NANSEA' +target_region <- 'RCG_NA' ## =========================== ## Create directory structure ## =========================== dir_output_rcg <- paste( - #"D:/RCG-RDBES-Overviews/RegionalOverviews/data_RDBES/002_prepared/", - "RegionalOverviews/data_RDBES/002_prepared/", # Lucía + "C:/GIT/RCG-RDBES-Overviews/RegionalOverviews/data_RDBES/002_prepared/",#Kasia + #"RegionalOverviews/data_RDBES/002_prepared/", # Lucía time_tag , "/", target_region, @@ -98,7 +98,7 @@ for (H in c('H1', 'H2', 'H3', 'H4', 'H5', 'H6', 'H7', 'H8', 'H9', 'H13')) { # ) # ) file <- list.files( - path = paste0("RegionalOverviews/data_RDBES/001_raw/",target_region,"/CS"), + path = paste0("RegionalOverviews/data_RDBES/001_raw/",ifelse(target_region=='RCG_BA','RCG_BA','RCG_NANSEA'),"/CS"), pattern = paste0("^HCS_", H, "_.*\\.zip$"), full.names = TRUE)