documentation

R/NMcheckData.R

@@ -219,30 +219,31 @@ NMcheckData <- function(data,file,covs,covs.occ,cols.num,col.id="ID",
     ADDL <- NULL
     AMT <- NULL
     CMT <- NULL
+    column <- NULL
+    check <- NULL
+    checkTimeInc <- NULL
+    cov <- NULL
     ## DV <- NULL
     EVID <- NULL
     ID.jump <- NULL
     ## ID <- NULL
     II <- NULL
+    isnewID <- NULL
+    level <- NULL
     MDVDV <- NULL
     MDV <- NULL
-    N <- NULL
+    newID <- NULL
+    NidByUID <- NULL
+    Nids <- NULL
     Nrep <- NULL
+    Nrows <- NULL
+    NUID <- NULL
+    occ <- NULL
     RATE <- NULL
+    reset <- NULL
     ROW <- NULL
     SS <- NULL
-    column <- NULL
-    check <- NULL
-    checkTimeInc <- NULL
-    cov <- NULL
-    newID <- NULL
-    isnewID <- NULL
-    level <- NULL
-    occ <- NULL
-    reset <- NULL
     variable <- NULL
-    NUID <- NULL
-    NidByUID <- NULL
     usubjNotUnique <- NULL
 
 ### Section end: Dummy variables, only not to get NOTE's in pacakge checks

R/compareCols.R

@@ -183,7 +183,7 @@ compareCols <- function(...,list.data,keep.names=TRUE,test.equal=FALSE,diff.only
 
             res.dims <- dims(list.data=dots)
             message("Dimensions:")
-            print(as.fun(res.dims))
+            message(print(as.fun(res.dims)))
         }
 
         if(nrow(dt.cols)==0&&ndots==1){
@@ -193,12 +193,12 @@ compareCols <- function(...,list.data,keep.names=TRUE,test.equal=FALSE,diff.only
         } else {
             if(diff.only){
                 message("\nColumns that differ:")
-                print(as.fun(dt.cols))
+                message(print(as.fun(dt.cols)))
                 message()
                 messageWrap(paste0("\nColumns where no differences were found: ",paste(dt.cols.full[nu==1&n==ndots,column],collapse=", "),"."),fun.msg=message)
             } else {
                 message("\nOverview of all columns:")
-                print(as.fun(dt.cols))
+                message(print(as.fun(dt.cols)))
             }
         }
         return(invisible(as.fun(dt.cols)))

tests/testthat/test_compareCols.R

@@ -120,3 +120,20 @@ test_that("list.data",{
     expect_equal(res1,res2)
 
 })
+
+test_that("basic - not quiet",{
+
+    fileRef <- "testReference/compareCols_06.rds"
+
+    pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata"))
+
+    pk.reduced <- pk[1:(.N%/%2)]
+    pk.reduced[,CYCLE:=NULL]
+    pk.reduced[,AMT:=as.character(AMT)]
+
+
+    suppressMessages(res1 <- compareCols(pk,pk.reduced,quiet=FALSE))
+
+    expect_equal_to_reference(res1,fileRef)
+
+})