From 796c00687621d03aa1f0b67ed251626d99e451bc Mon Sep 17 00:00:00 2001 From: Kai Aragaki Date: Tue, 2 Apr 2024 21:45:00 -0400 Subject: [PATCH] make tidy output tibbles for pcr Output of a data.frame isn't truncated and makes my emacs config lag on output --- R/pcr_scrub.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/pcr_scrub.R b/R/pcr_scrub.R index 92781f6..ac853bb 100644 --- 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 |>