diff --git a/RBBGCMuso/R/setupMuso.R b/RBBGCMuso/R/setupMuso.R index d147e0f..fd91a01 100644 --- a/RBBGCMuso/R/setupMuso.R +++ b/RBBGCMuso/R/setupMuso.R @@ -222,8 +222,13 @@ setupMuso <- function(executable=NULL, } 5+4 - - outputname <- unlist(strsplit(grep("prefix for output files",inifiles[[2]],value=TRUE),"[\ \t]"))[1] + outputname <- unlist(strsplit(grep("output",grep("prefix",inifiles[[2]],value=TRUE),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] inputfiles<-c(ininput,epcinput,metinput) numdata<-rep(NA,3) diff --git a/RBBGCMuso_0.1.8.tar.gz b/RBBGCMuso_0.1.8.tar.gz index 148f272..c7d248a 100644 Binary files a/RBBGCMuso_0.1.8.tar.gz and b/RBBGCMuso_0.1.8.tar.gz differ diff --git a/RBBGCMuso_0.1.8.tar.gz.bck2 b/RBBGCMuso_0.1.8.tar.gz.bck2 new file mode 100644 index 0000000..148f272 Binary files /dev/null and b/RBBGCMuso_0.1.8.tar.gz.bck2 differ