[R-gregmisc-commits] r2180 - pkg/gtools/R

[noreply at r-forge.r-project.org]

Author: warnes
Date: 2018-06-20 17:31:18 +0200 (Wed, 20 Jun 2018)
New Revision: 2180

Modified:
   pkg/gtools/R/smartbind.R
Log:
Add parenthesis for clarity (should have no functional difference).

Modified: pkg/gtools/R/smartbind.R
===================================================================
--- pkg/gtools/R/smartbind.R	2018-06-20 15:30:38 UTC (rev 2179)
+++ pkg/gtools/R/smartbind.R	2018-06-20 15:31:18 UTC (rev 2180)
@@ -9,9 +9,9 @@
       {
         data <- modifyList(list, data)
       }
-    data <- data[!sapply(data, function(l) is.null(l) | ncol(l)==0 | nrow(l)==0)]
-    
+    data <- data[!sapply(data, function(l) is.null(l) | (ncol(l)==0) | (nrow(l)==0) )]
 
+
     defaultNames <- seq.int(length(data))
 
     if(is.null(names(data)))
@@ -28,7 +28,7 @@
                    else
                      data.frame(as.list(x), check.names=FALSE)
                    )
-    
+
     #retval <- new.env()
     retval <- base::list()
     rowLens <- unlist(lapply(data, nrow))