tidy messages from NMscanMultiple

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: NMdata
 Type: Package
 Title: Preparation, Checking and Post-Processing Data for PK/PD Modeling
-Version: 0.1.7.902
+Version: 0.1.7.903
 Authors@R:
   c(person(given="Philip", family="Delff",
      email = "philip@delff.dk",
@@ -33,6 +33,6 @@ Suggests:
   htmltools,
   spelling
 Encoding: UTF-8
-URL: https://philipdelff.github.io/NMdata/
 BugReports: https://github.com/philipdelff/NMdata/issues
 Language: en-US
+URL: https://philipdelff.github.io/NMdata/

NEWS.md

@@ -2,18 +2,24 @@
 
 ## New features
 
-If truncating columns in the csv file `NMwriteData()` accepts data
-with commas in values, even when writing to csv files.
+* If truncating columns in the csv file `NMwriteData()` accepts data
+  with commas in values, even when writing to csv files.
 
-`NMscanTables()` includes model name in meta data table. Useful for
-generation of overviews of output tables from multiple models.
+* `NMscanTables()` includes model name in meta data table. Useful for
+  generation of overviews of output tables from multiple models.
 
 ## Bugfixes
 
-Support for data file names including substrings "ACCEPT" and "IGN" is
-added. Before, such data set file names could lead to failure if
-interpreting data subsetting filters (ACCEPT and IGN(ORE)) in Nonmem
-control streams. 
+* Support for data file names including substrings "ACCEPT" and "IGN"
+  is added. Before, such data set file names could lead to failure if
+  interpreting data subsetting filters (ACCEPT and IGN(ORE)) in Nonmem
+  control streams.
+
+## Other improvements
+
+* NMscanMultiple would sometimes print a bit of a messy overview of
+  the results. That has been fixed without implications on the results
+  returned.
 
 # NMdata 0.1.7
 

R/NMscanMultiple.R

@@ -118,7 +118,7 @@ NMscanMultiple <- function(files,dir,file.pattern,as.fun,...){
     }
     dims.res <- dims(list.data=res.all.list[dt.lst[,which(success)]])
     dt.lst <- mergeCheck(dt.lst,dims.res,by.x="lst",by.y="data",all.x=T,quiet=TRUE)
-
+    
 
     info.list <- lapply(res.all.list,NMinfo)
     names(info.list) <- all.files
@@ -132,7 +132,8 @@ NMscanMultiple <- function(files,dir,file.pattern,as.fun,...){
 
     if(!quiet){
         message("\nOverview of model scanning results:\n")
-        message(print(dt.lst))
+        message(paste0(capture.output(dt.lst), collapse = "\n"))
+        #message(print(dt.lst))
     }
 
     ## run as.fun