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

Adding outputname error handling

Browse Source
This commit is contained in:
hollorol 2017-05-14 16:17:33 +02:00
parent 5df0cda7a8
commit 3ea7ee8b15
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
RBBGCMuso/R/setupMuso.R
View File

@ -222,8 +222,13 @@ setupMuso <- function(executable=NULL,
} }
5+4 5+4
outputname <- unlist(strsplit(grep("output",grep("prefix",inifiles[[2]],value=TRUE),value=TRUE),"[\ \t]"))[1]
outputname <- unlist(strsplit(grep("prefix for output files",inifiles[[2]],value=TRUE),"[\ \t]"))[1] ##THIS IS AN UGLY SOLUTION, WHICH NEEDS AN UPGRADE!!!
## outputname <- unlist(strsplit(grep("prefix for output files",inifiles[[2]],value=TRUE),"[\ \t]"))[1]
if(outputname==NULL){
cat("I cannot find outputname, in your default ini file \n Please make sure that the line wich contains the name alse contains the prefix and the outmut keywords!")
}
## outputname<-unlist(read.table(ininput[2],skip=93,nrows = 1))[1] ## outputname<-unlist(read.table(ininput[2],skip=93,nrows = 1))[1]
inputfiles<-c(ininput,epcinput,metinput) inputfiles<-c(ininput,epcinput,metinput)
numdata<-rep(NA,3) numdata<-rep(NA,3)

BIN
RBBGCMuso_0.1.8.tar.gz
View File

Binary file not shown.

BIN
RBBGCMuso_0.1.8.tar.gz.bck2 Normal file
View File

Binary file not shown.