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

changeing the input method is no longer necessary

Browse Source
This commit is contained in:
Hollos Roland 2020-06-02 22:07:27 +02:00
parent f677995038
commit 0e50f0c1f0
2 changed files with 25 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
RBBGCMuso/R/calibMuso.R
View File

@ -113,10 +113,14 @@ calibMuso <- function(settings=setupMuso(), calibrationPar=NULL,
##change the epc file if and only if there are given parameters
if(!is.null(parameters)){
changemulline(filePaths = epcInput,
changemulline(filePaths = epc[2],
calibrationPar = calibrationPar,
contents = parameters,
fileOut = toModif,
src = if(file.exists(bck)){
bck
} else {
NULL
})
# fileToChange = fileToChange,)
}

53
RBBGCMuso/R/changeMuso.R
View File

@ -7,45 +7,30 @@
#' @keywords internal
#'
changemulline <- function(filePaths, calibrationPar, contents, fileOut, fileToChange, modifyOriginal=FALSE){
selectFileToWrite <- function(filePaths, fileTochange){
if(fileToChange == "epc"){
return(1)
} else{
return(2)
}
changemulline <- function(filePaths, calibrationPar, contents, src){
# browser()
if(is.null(src)){
src <- filePaths
}
if(xor(is.list(calibrationPar), is.list(contents)) ){
stop("If you change epc and ini files also, you have to use list for calibrationPar, and paramateters.")
}
if(!is.element(fileToChange,c("ini","epc","both"))){
stop("RBBGCMuso can only change ini or epc file, so fileToChange can be 'epc/ini/both'")
}
fileStringVector <- readLines(src)
Map(function(index, content){
fileStringVector <<- changeByIndex(index, content, fileStringVector)
if(fileToChange == "epc" | fileToChange == "ini"){
parMat<-matrix(c(calibrationPar, contents),nrow=length(calibrationPar))
if(nrow(parMat)!=1){
parMat <- parMat[order(parMat[,1]),]
}
changeMusoC(inFile = filePaths[selectFileToWrite(filePaths, fileToChange)],
outFile = fileOut[selectFileToWrite(filePaths, fileToChange)],
parMat)
}
}, calibrationPar, contents)
writeLines(fileStringVector, filePaths)
if(fileToChange == "both"){
parMat[[1]]<-cbind(calibrationPar[[1]], contents[[1]])
parMat[[1]]<- parMat[[1]][order(parMat[[1]][,1]),]
parMat[[2]]<-cbind(calibrationPar[[2]], contents[[2]])
parmat[[2]]<- parMat[[2]][order(parMat[[2]][,1]),]
browser()
changeMusoC(filePaths[1],fileOut[1],parMat[[1]] )
changeMusoC(filePaths[2],fileOut[2],parMat[[2]] )
}
}
changeNth <- function (string,place,replacement) {
trimws(gsub(sprintf("^((.*?\\s+){%s})(.*?\\s+)", place), sprintf("\\1%s ", replacement), paste0(string," "), perl=TRUE),
which="right")
}
changeByIndex <- function (rowIndex, parameter, fileStringVector){
h <- round((rowIndex*100) %% 10)
i <- as.integer(rowIndex)
fileStringVector[i] <- changeNth(fileStringVector[i], h, parameter)
fileStringVector
}