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

10
RBBGCMuso/R/setupMuso.R
View File

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