From 128de33ff782286ac99341cae269f567f53dc32a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roland=20Holl=C3=B3s?= <hollorol@gmail.com>
Date: Wed, 24 May 2023 09:53:41 +0200
Subject: [PATCH] backup

---
 RBBGCMuso/R/calibMuso.R      | 9 ++++++++-
 RBBGCMuso/R/parametersweep.R | 2 +-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/RBBGCMuso/R/calibMuso.R b/RBBGCMuso/R/calibMuso.R
index 4606a0f..7366f19 100644
--- a/RBBGCMuso/R/calibMuso.R
+++ b/RBBGCMuso/R/calibMuso.R
@@ -34,13 +34,20 @@ calibMuso <- function(settings=setupMuso(), calibrationPar=NULL,
                       skipSpinup = TRUE, modifyOriginal = FALSE, prettyOut = FALSE,
                       postProcString = NULL,
                       doBackup=TRUE,
+                      backupDir="bck",
                       fixAlloc=FALSE
                       ){ #
 ########################################################################
 ###########################Set local variables and places###############
 ########################################################################
     if(doBackup){
-        file.copy(eval(parse(text = sprintf("settings$%sInput[2]", fileToChange))),file.path(settings$inputLoc),overwrite=FALSE)
+        for(epc in settings$epcInput){
+            file.copy(epc, file.path(settings$inputLoc, backupDir), overwrite=FALSE)
+        }
+
+        for(soi in settings$soilFile){
+            file.copy(soi, file.path(settings$inputLoc, backupDir), overwrite=FALSE)
+        }
     }
 
     bck  <- file.path(settings$inputLoc, "bck",
diff --git a/RBBGCMuso/R/parametersweep.R b/RBBGCMuso/R/parametersweep.R
index 9d77300..5e95ce4 100644
--- a/RBBGCMuso/R/parametersweep.R
+++ b/RBBGCMuso/R/parametersweep.R
@@ -17,7 +17,7 @@ paramSweep <- function(inputDir="./",
                        parameters=NULL,
                        outputDir=NULL,
                        iterations=10,
-                       outVar="daily_gpp",
+                       outVar="3009",
                        htmlOutName = "paramsweep.html",
                        fixAlloc=FALSE){