Speed improvement to f_bind_rows.

NicChr · Nov 15, 2024 · e6d1d29 · e6d1d29
1 parent 8dcb44f
commit e6d1d29
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/f_bind.R b/R/f_bind.R
@@ -46,13 +46,11 @@ f_bind_rows <- function(..., .fill = TRUE){
       collapse::rowbind(..., return = "data.frame", fill = .fill)
     }
 
-    dots <- lapply(dots, df_ungroup)
-
     if (!cpp_any_frames_exotic(dots)){
 
       # We can use collapse::rowbind if data frames
       # contain simple atomic vectors
-      reconstruct(template, do.call(fast_rowbind, dots))
+      reconstruct(template, fast_rowbind(dots))
     } else {
       col_prototypes <- as.list(cheapr::sset(template, 0))