Added directory creation if missing

c47aef94 · Richard Cornes · 3acaa6be · c47aef94
Commit c47aef94 authored 3 years ago by Richard Cornes
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

rscripts/nrt_dup.R rscripts/nrt_dup.R +5 -0

No files found.
--- a/rscripts/nrt_dup.R
+++ b/rscripts/nrt_dup.R
@@ -22,6 +22,11 @@ writeOutText = FALSE

 config<-config::get(file = "config.yml")

+odirs <- list(file.path(config$output_dir,"PAIR_DUPFILES"), file.path(config$output_dir,"MFILES_SHIP_FINAL"))
+imake.dirs <- lapply(odirs, function(D){
+    if(!dir.exists(D)) dir.create(D)
+})
+
 if(length(my_args)<2)my_args<-my_args2

  year<-my_args[1]