Now changemulline function works for lists

RBBGCMuso/R/changeMuso.R

@@ -7,16 +7,21 @@
 #' @keywords internal
 
 changemulline <- function(filename,calibrationpar,contents){
-                                        #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.
+    ##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.
     ##From now changespecline is in the forarcheologist file, because its no longer needed
     varnum <- length(calibrationpar)
+    contents <- as.list(contents)
     if(length(contents)!=varnum)
     {
         stop(" number of the values is not the same as the number of the changed parameters")
     }
     
-        TOT=readLines(filename,-1)
-        TOT[calibrationpar]<-contents
-        writeLines(TOT,filename)
+    readedFile = readLines(filename,-1)
+
+    for(i in 1:varnum){
+        readedFile[calibrationpar[i]] <- paste(contents[[i]],collapse = " ")
     }
+    
+    writeLines(unlist(readedFile),filename)
+}