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

Adding new functionality to BBGCDB

Browse Source
This commit is contained in:
Roland Hollós 2019-02-11 14:47:42 +01:00
parent dcddaee7f5
commit 3188c8d2d4
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RBBGCMuso/R/setupMuso.R
View File

@ -55,7 +55,8 @@ setupMuso <- function(executable=NULL,
epcInput=NULL,
mapData=NULL,
leapYear=FALSE,
version=5
version=5,
doCopy=TRUE
){
Linuxp <-(Sys.info()[1]=="Linux")
@ -189,8 +190,11 @@ setupMuso <- function(executable=NULL,
executable<-file.path(inputLoc,"muso.exe")
}
} else {
if(doCopy){
file.copy(executable,inputLoc)
}
}
outputName <- character(2)
outputName[1] <- basename(unlist(strsplit(iniFiles[[1]][grep("OUTPUT_CONTROL",iniFiles[[1]])+1],"[\ \t]"))[1])
outputName[2] <- basename(unlist(strsplit(iniFiles[[2]][grep("OUTPUT_CONTROL",iniFiles[[2]])+1],"[\ \t]"))[1])