diff --git a/R/PrintDebug.R b/R/PrintDebug.R index 4d4b32e..dadb312 100644 --- a/R/PrintDebug.R +++ b/R/PrintDebug.R @@ -80,17 +80,17 @@ printDebug <- function(fn_name, table, key, tbl, rows, query_only = FALSE) { return_keys <- NULL if (key %in% colnames(rows)) { - return_keys <- rows %>% + return_keys <- rows |> dplyr::select(key) } else { - return_keys <- rows %>% - dplyr::bind_rows(tibble::tibble(!!key := character(0))) %>% + return_keys <- rows |> + dplyr::bind_rows(tibble::tibble(!!key := character(0))) |> dplyr::mutate( !!key := dplyr::coalesce( !!!dplyr::sym(key), paste0("<>") ) - ) %>% + ) |> dplyr::select(key) } return(invisible(return_keys))