Replace underscore with hyphen in date variable value

Sage-Bionetworks · Apr 17, 2024 · 93a88d7 · 93a88d7
1 parent 4f0e58d
commit 93a88d7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/scripts/main/sts_synindex_external.R b/scripts/main/sts_synindex_external.R
@@ -152,7 +152,11 @@ source('~/recover-parquet-external/scripts/deidentification/deidentification.R')
 
 
 # Sync final parquets to bucket -------------------------------------------
-date <- latest_archive %>% stringr::str_extract("[0-9]{4}_[0-9]{2}_[0-9]{2}")
+date <- 
+  latest_archive %>% 
+  stringr::str_extract("[0-9]{4}_[0-9]{2}_[0-9]{2}") %>% 
+  stringr::str_replace_all(pattern = "_", replacement = "-")
+
 sync_cmd <- glue::glue('aws s3 --profile service-catalog sync {PARQUET_FINAL_LOCATION} {base_s3_uri_archive}{date}/ --exclude "*owner.txt*" --exclude "*archive*"')
 system(sync_cmd)