support for first and last + bugfix for first section

NMautoverse · Nov 30, 2024 · 9ddd6ed · 9ddd6ed
1 parent e3fad06
commit 9ddd6ed
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 9 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: NMdata
 Type: Package
 Title: Preparation, Checking and Post-Processing Data for PK/PD Modeling
-Version: 0.1.8.901
+Version: 0.1.8.902
 Authors@R:
   c(person(given="Philip", family="Delff",
      email = "philip@delff.dk",

diff --git a/R/NMwriteSection.R b/R/NMwriteSection.R
@@ -69,7 +69,7 @@ NMwriteSection <- function(files,file.pattern,dir,section,newlines,
                            list.sections,location="replace",newfile,
                            backup=TRUE,blank.append=TRUE,data.file,
                            write=TRUE,quiet,simplify=TRUE){
-
+    
 
 
 #### Section start: handle arguments ####

diff --git a/R/NMwriteSectionOne.R b/R/NMwriteSectionOne.R
@@ -77,9 +77,6 @@ NMwriteSectionOne <- function(file0,lines,section,location="replace",
             min.dl <- min(idx.dlines)
             max.dl <- max(idx.dlines)
 
-### these two cases need to be handled slightly differently so not supported for now
-
-            stopifnot(min.dl>1)
         }
         nlines <- length(lines)
 
@@ -109,17 +106,21 @@ NMwriteSectionOne <- function(file0,lines,section,location="replace",
         }
         if(location=="after"){
 
-            all.lines <- c(lines,newlines)
-            if(min.dl>1){
+            ## 
+            ## if(min.dl>1){
+            if(max.dl<nlines){
                 all.lines <- c(lines[1:(max.dl)],
                                newlines,
                                lines[-(1:(max.dl))]
                                ## lines[max((max.dl+1),length(lines)):length(lines)]
                                )
             } else {
-                all.lines <- lines
+                all.lines <- c(lines,newlines)
             }
         }
+        if(location=="first"){
+            all.lines <- c(newlines,lines)
+        }
         if(location=="last"){
             all.lines <- c(lines,newlines)
         }
@@ -130,7 +131,7 @@ NMwriteSectionOne <- function(file0,lines,section,location="replace",
     for (I in 1:length(list.sections)) {
         newlines <- replaceOnePart(lines=newlines,section=names(list.sections)[I],
                                    newlines=list.sections[[I]]
-                                   ,quiet=quiet)
+                                  ,quiet=quiet)
     }
 
     if(is.null(newfile)) return(newlines)