Fixed bug in dfBind (#91)

lleytoncave · Aug 12, 2021 · 21c48d1 · 21c48d1
1 parent 57cf702
commit 21c48d1
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -428,8 +428,12 @@ chkRowCol <- function(dat) {
 #' @noRd
 #' @keywords internal
 dfBind <- function(dfList) {
-  ## Filter empty data.frames from dfList
-  dfList <- Filter(f = function(x) nrow(x) > 0, x = dfList)
+  ## Remove empty data.frames from dfList
+  for (i in rev(seq_along(dfList))) {
+    if (nrow(dfList[[i]]) == 0) {
+      dfList[[i]] <- NULL
+    }
+  }
   if (length(dfList) == 0) {
     return(data.frame())
   }