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, 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")
@ -189,8 +190,11 @@ setupMuso <- function(executable=NULL,
executable<-file.path(inputLoc,"muso.exe") executable<-file.path(inputLoc,"muso.exe")
} }
} else { } else {
if(doCopy){
file.copy(executable,inputLoc) 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])
outputName[2] <- basename(unlist(strsplit(iniFiles[[2]][grep("OUTPUT_CONTROL",iniFiles[[2]])+1],"[\ \t]"))[1]) outputName[2] <- basename(unlist(strsplit(iniFiles[[2]][grep("OUTPUT_CONTROL",iniFiles[[2]])+1],"[\ \t]"))[1])