Merge pull request #3275 from meetagrawal09/develop

[Bug fix] : Fixed `gsub` issue in `write.config.SIPNET`
PecanProject · May 17, 2024 · 0254085 · 0254085
2 parents c28158b + aa0a709
commit 0254085
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/models/sipnet/R/write.configs.SIPNET.R b/models/sipnet/R/write.configs.SIPNET.R
@@ -73,6 +73,7 @@ write.config.SIPNET <- function(defaults, trait.values, settings, run.id, inputs
   cpruncmd <- cpoutcmd <- rmoutdircmd <- rmrundircmd <- ""
   if (!is.null(settings$host$rabbitmq)) {
     #rsync cmd from remote to local host.
+    settings$host$rabbitmq$cpfcmd <- ifelse(is.null(settings$host$rabbitmq$cpfcmd), "", settings$host$rabbitmq$cpfcmd)
     cpruncmd <- gsub("@OUTDIR@", settings$host$rundir, settings$host$rabbitmq$cpfcmd)
     cpruncmd <- gsub("@OUTFOLDER@", rundir, cpruncmd)
 
@@ -630,4 +631,4 @@ remove.config.SIPNET <- function(main.outdir, settings) {
   } else {
     print("*** WARNING: Removal of files on remote host not yet implemented ***")
   }
-} # remove.config.SIPNET 
+} # remove.config.SIPNET