make tidy output tibbles for pcr

Output of a data.frame isn't truncated and makes my emacs config lag on output
KaiAragaki · Apr 3, 2024 · 796c006 · 796c006
1 parent cb5c765
commit 796c006
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/pcr_scrub.R b/R/pcr_scrub.R
@@ -17,12 +17,12 @@ scrub.pcr <- function(x, include_header = FALSE, ...) {
   # Add footer ----
   footer <- x$footer |> t() |> tibble::as_tibble()
   colnames(footer) <- janitor::make_clean_names(colnames(footer))
-  tidy <- cbind(tidy, footer)
+  tidy <- dplyr::bind_cols(tidy, footer)
 
   if (include_header) {
     header <- x$header |> t() |> tibble::as_tibble()
     colnames(header) <- janitor::make_clean_names(colnames(header))
-    tidy <- cbind(tidy, header)
+    tidy <- dplyr::bind_cols(tidy, header)
   }
 
   tidy |>