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

fix perror and debugging=TRUE bug

Browse Source
This commit is contained in:
hollorol 2017-09-01 19:25:47 +02:00
parent fa87c5e3cb
commit 5cea99e0a4
4 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
RBBGCMuso/R/calibMuso.R
View File

@ -131,8 +131,11 @@ calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logf
#############LOG SECTION####################### #############LOG SECTION#######################
############################################### ###############################################
perror<-as.numeric(as.vector(lapply(paste(outputloc,logfiles,sep="/"),function(x) tail(readLines(x,-1),1)))) #vector of spinup and normalrun error perror<-as.numeric(as.vector(lapply(paste(outputloc,logfiles,sep="/"),function(x) tail(readLines(x,-1),1)))) #vector of spinup and normalrun error
if((debugging=="stamplog")|(debugging==TRUE)){#If debugging option turned on if((debugging=="stamplog")|(debugging==TRUE)){#If debugging option turned on
#If log or ERROR directory does not exists create it! #If log or ERROR directory does not exists create it!
dirName<-paste(inputloc,"LOG",sep="") dirName<-paste(inputloc,"LOG",sep="")
@ -208,7 +211,7 @@ calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logf
} }
if(errorsign==1){ if(errorsign==1){
lapply( logfiles, function (x) file.rename(from=paste(dirName,"/", x, sep=""), to=dirERROR)) lapply( logfiles, function (x) file.copy(from=paste(dirName,"/", x, sep=""), to=dirERROR))
} }
} else { } else {
@ -220,7 +223,7 @@ calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logf
} }
if(errorsign==1){ if(errorsign==1){
lapply( logfiles, function (x) file.rename(from=paste(dirName, "/",logfilename,"-",x,sep=""), to=dirERROR)) lapply( logfiles, function (x) file.copy(from=paste(dirName, "/",logfilename,"-",x,sep=""), to=dirERROR))
} }
} }

17
RBBGCMuso/R/otherUsefullFunctions.R
View File

@ -113,3 +113,20 @@ corrigMuso <- function(settings, data){
} }
return(data) return(data)
} }
#' genMusoMapping
#'
#' This function leapyear-corrigate the output of the modell
#' @author Roland Hollos
#' @param settings This is the output of the setupMuso() function. It contains all of the RBBGCMuso settings
#' @param data the models outputdata
#' @return It returns the modells leapyear-corrigated output data.
#' @export
#' @usage corrigMuso(settings, data)
genMusoMapping<-function(output_map_init="output_map_init.c"){
outputRaw<-grep("\\[",readLines("output_map_init",-1),value=TRUE)
}

4
RBBGCMuso/R/rungetMuso.R
View File

@ -204,7 +204,7 @@ rungetMuso <- function(settings, timee="d", debugging=FALSE, logfilename=NULL, k
} }
if(errorsign==1){ if(errorsign==1){
lapply( logfiles, function (x) file.rename(from=paste(dirName,"/", x, sep=""), to=dirERROR)) lapply( logfiles, function (x) file.copy(from=paste(dirName, "/",logfilename,"-",x,sep=""), to=dirERROR))
} }
} else { } else {
@ -216,7 +216,7 @@ rungetMuso <- function(settings, timee="d", debugging=FALSE, logfilename=NULL, k
} }
if(errorsign==1){ if(errorsign==1){
lapply( logfiles, function (x) file.rename(from=paste(dirName, "/",logfilename,"-",x,sep=""), to=dirERROR)) lapply( logfiles, function (x) file.copy(from=paste(dirName, "/",logfilename,"-",x,sep=""), to=dirERROR))
} }
} }

BIN
RBBGCMuso_0.3.1.0-1.tar.gz
View File

Binary file not shown.