typo bugfix

NMautoverse · Nov 14, 2024 · e3fad06 · e3fad06
1 parent 5d1e2c3
commit e3fad06
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 2 deletions.
diff --git a/R/NMwriteData.R b/R/NMwriteData.R
@@ -237,7 +237,7 @@ NMwriteData <- function(data,file,formats.write=c("csv","rds"),
         }
     }
 
-    missing(script) script <- NULL
+    if(missing(script)) script <- NULL
     if(!is.null(script)){
         args.stamp$script <- script
     }

diff --git a/R/fnAppend.R b/R/fnAppend.R
@@ -11,8 +11,17 @@
 ##'     10,... and not 1, 2,...,10,...
 ##' @param sep The separator between the existing file name (until
 ##'     extension) and the addition.
+##' @param allow.noext Allow `fn` to be string(s) witout extensions?
+##'     Default is `FALSE` in wich case an error will be thrown if
+##'     `fn` contains strings without extensions. If `TRUE`, `x` will
+##'     be appended to fn in these cases.
 ##' @return A character (vector)
 ##'
+##' @examples
+##' fnAppend("plot.png",1)
+##' fnAppend("plot.png",1,pad0=2,sep="-")
+##' fnAppend("plot.png","one")
+##' fnAppend("plot","one",allow.noext=TRUE)
 ##' @export
 
 

diff --git a/man/fnAppend.Rd b/man/fnAppend.Rd