bug fixes for write config sipnet function.

PecanProject · Dec 6, 2023 · 5488a49 · 5488a49
1 parent 0a2b302
commit 5488a49
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/models/sipnet/R/write.configs.SIPNET.R b/models/sipnet/R/write.configs.SIPNET.R
@@ -98,9 +98,9 @@ write.config.SIPNET <- function(defaults, trait.values, settings, run.id, inputs
   jobsh <- gsub("@BINARY@", settings$model$binary, jobsh)
   jobsh <- gsub("@REVISION@", settings$model$revision, jobsh)
 
-  gsub("@CPCMD@", cpcmd, jobsh)
-  gsub("@RMOUTDIRCMD@", rmoutdircmd, jobsh)
-  gsub("@RMRUNDIRCMD@", rmrundircmd, jobsh)
+  jobsh <- gsub("@CPCMD@", cpcmd, jobsh)
+  jobsh <- gsub("@RMOUTDIRCMD@", rmoutdircmd, jobsh)
+  jobsh <- gsub("@RMRUNDIRCMD@", rmrundircmd, jobsh)
 
   if(is.null(settings$state.data.assimilation$NC.Prefix)){
     settings$state.data.assimilation$NC.Prefix <- "sipnet.out"