only write backup if writing to files

NMautoverse · Dec 8, 2024 · 07a2081 · 07a2081
1 parent 885da6b
commit 07a2081
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 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.904
+Version: 0.1.8.905
 Authors@R:
   c(person(given="Philip", family="Delff",
      email = "philip@delff.dk",

diff --git a/R/NMwriteSection.R b/R/NMwriteSection.R
@@ -37,7 +37,7 @@
 ##'     exactly match the one in `$DATA` or `$INFILE` in Nonmem.
 ##' @param write Default is to write to file. If write=FALSE,
 ##'     `NMwriteSection()` returns the resulting input.txt without writing
-##'     it to disk?  Default is `FALSE`.
+##'     it to disk.  Default is `TRUE`.
 ##' @param quiet The default is to give some information along the way
 ##'     on what data is found. But consider setting this to TRUE for
 ##'     non-interactive use. Default can be configured using

diff --git a/R/NMwriteSectionOne.R b/R/NMwriteSectionOne.R
@@ -141,7 +141,7 @@ NMwriteSectionOne <- function(file0,lines,section,location=c("replace","before",
 
     if(is.null(newfile)) return(newlines)
 
-    if(file0==newfile && backup ) {
+    if(write && file0==newfile && backup ) {
         dir.backup <- file.path(dirname(file0),"NMdata_backup")
         ## make sure backup dir exists
         if(file.exists(dir.backup)&&!dir.exists(dir.backup)) messageWrap("Something called NMdata_backup is found and it is not a directory. Please remove or use backup=FALSE.",fun.msg=stop)