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

Now changemulline function works for lists

Browse Source
This commit is contained in:
hollorol 2018-02-19 13:59:00 +01:00
parent 20deb229c2
commit 47cb43fb46
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
RBBGCMuso/R/changeMuso.R
View File

@ -7,16 +7,21 @@
#' @keywords internal #' @keywords internal
changemulline <- function(filename,calibrationpar,contents){ changemulline <- function(filename,calibrationpar,contents){
#This is the function which is capable change multiple specific lines to other using their row numbers. ##This is the function which is capable change multiple specific lines to other using their row numbers.
#The function uses the previous changspecline function to operate. ##The function uses the previous changspecline function to operate.
##From now changespecline is in the forarcheologist file, because its no longer needed ##From now changespecline is in the forarcheologist file, because its no longer needed
varnum <- length(calibrationpar) varnum <- length(calibrationpar)
contents <- as.list(contents)
if(length(contents)!=varnum) if(length(contents)!=varnum)
{ {
stop(" number of the values is not the same as the number of the changed parameters") stop(" number of the values is not the same as the number of the changed parameters")
} }
TOT=readLines(filename,-1) readedFile = readLines(filename,-1)
TOT[calibrationpar]<-contents
writeLines(TOT,filename) for(i in 1:varnum){
readedFile[calibrationpar[i]] <- paste(contents[[i]],collapse = " ")
} }
writeLines(unlist(readedFile),filename)
}