From 4db4efabaee20d3adc509875c38364628c28815f Mon Sep 17 00:00:00 2001
From: Craig Williams <craig@avsdev.uk>
Date: Tue, 27 Jan 2026 14:48:48 +0000
Subject: [PATCH] Fixed a devtools check() issue

---
 R/PrintDebug.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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