bugfix in replacing first sections

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: NMdata
 Type: Package
 Title: Preparation, Checking and Post-Processing Data for PK/PD Modeling
-Version: 0.1.8.903
+Version: 0.1.8.904
 Authors@R:
   c(person(given="Philip", family="Delff",
      email = "philip@delff.dk",

R/NMreadExt.R

@@ -214,8 +214,6 @@ NMreadExt <- function(file,return,as.fun,modelname,col.model,auto.ext,tableno="m
                                 i==j|abs(value)>1e-9,.(iblock=min(i,j)),by=.(par.type,i)]
         tab.i[,blocksize:=.N,by=.(par.type,iblock)]
 
-        ## pars0 <- copy(pars)
-        ## tab.blocks
         pars <- mergeCheck(pars,tab.i,by=cc(par.type,i),all.x=T,quiet=TRUE)
 
         ## pars[par.type%in%c("OMEGA","SIGMA"),.(i,j,iblock,blocksize,value)]

R/NMwriteSectionOne.R

@@ -1,14 +1,18 @@
 ##' @keywords internal
 
-NMwriteSectionOne <- function(file0,lines,section,location="replace",
+NMwriteSectionOne <- function(file0,lines,section,location=c("replace","before","after","first","last"),
                               newlines,list.sections,newfile,
                               backup=TRUE,blank.append=TRUE,write,
                               quiet=FALSE){
-    
+
     after <- NULL 
     before <- NULL
     mad.dl <- NULL
+
 
+
+    location <- match.arg(location)
+
     if(!missing(file0)){
         file0 <- filePathSimple(file0)
         stopifnot(file.exists(file0))
@@ -37,6 +41,7 @@ NMwriteSectionOne <- function(file0,lines,section,location="replace",
 
     ## put this part in a function to be sequentially applied for all elements in list.
     replaceOnePart <- function(lines,section,newlines,quiet=FALSE){
+
         if(!quiet && !is.null(newfile)) message(paste("Writing",newfile))
 
         ## make sure section is capital and does not start with $.
@@ -85,7 +90,7 @@ NMwriteSectionOne <- function(file0,lines,section,location="replace",
             if(min.dl==1&&max.dl==nlines){
                 all.lines <- newlines
             } else if(min.dl==1){
-                all.lines <- c(newlines,lines[(mad.dl+1),nlines])
+                all.lines <- c(newlines,lines[(max.dl+1):nlines])
             } else if(max.dl==nlines){
                 all.lines <- c(lines[1:(min.dl-1)],newlines)
             } else {