hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

backup

Browse Source
This commit is contained in:
Roland Hollós 2023-05-24 09:53:41 +02:00
parent 2b89cc114f
commit 128de33ff7
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
RBBGCMuso/R/calibMuso.R
View File

@ -34,13 +34,20 @@ calibMuso <- function(settings=setupMuso(), calibrationPar=NULL,
skipSpinup = TRUE, modifyOriginal = FALSE, prettyOut = FALSE, skipSpinup = TRUE, modifyOriginal = FALSE, prettyOut = FALSE,
postProcString = NULL, postProcString = NULL,
doBackup=TRUE, doBackup=TRUE,
backupDir="bck",
fixAlloc=FALSE fixAlloc=FALSE
){ # ){ #
######################################################################## ########################################################################
###########################Set local variables and places############### ###########################Set local variables and places###############
######################################################################## ########################################################################
if(doBackup){ 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", bck <- file.path(settings$inputLoc, "bck",

2
RBBGCMuso/R/parametersweep.R
View File

@ -17,7 +17,7 @@ paramSweep <- function(inputDir="./",
parameters=NULL, parameters=NULL,
outputDir=NULL, outputDir=NULL,
iterations=10, iterations=10,
outVar="daily_gpp", outVar="3009",
htmlOutName = "paramsweep.html", htmlOutName = "paramsweep.html",
fixAlloc=FALSE){ fixAlloc=FALSE){