Fixed a devtools check() issue

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("<<NEW_ID::", round(stats::runif(1, 1, 100000)), ">>")
         )
-      ) %>%
+      ) |>
       dplyr::select(key)
   }
   return(invisible(return_keys))