From dd68a62e39ab669b7470ab9b5e5723eff2a100e6 Mon Sep 17 00:00:00 2001
From: Keith Newman <keithnewman@users.noreply.github.com>
Date: Wed, 30 Jul 2025 11:02:23 +0100
Subject: [PATCH] fix: Use magrittr pipe for older R versions (#42)

---
 DESCRIPTION         | 2 +-
 NEWS.md             | 3 +++
 R/summarise_users.R | 8 ++++----
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index f5c7e65..5e5fd60 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: audit.connect
 Title: Posit Connect Health Check
-Version: 0.7.7
+Version: 0.7.8
 Authors@R:
     person("Jumping", "Rivers", , "info@jumpingrivers.com", role = c("aut", "cre"))
 Description: Posit Connect Health Check. Deploys various content types to
diff --git a/NEWS.md b/NEWS.md
index 8afd0dd..d8eaa43 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,6 @@
+# audit.connect 0.7.8 _2025-07-30_
+  - fix: Use magrittr pipe for compatibility with older R versions.
+
 # audit.connect 0.7.7 _2025-07-16_
   - chore: Update requirements.txt
 
diff --git a/R/summarise_users.R b/R/summarise_users.R
index 4ddc990..8ddb507 100644
--- a/R/summarise_users.R
+++ b/R/summarise_users.R
@@ -58,15 +58,15 @@ print_audit_users = function(user_list) {
 print_audit_user_apps = function(client, debug_level) {
   suppress = get_suppress(debug_level)
   content = suppress(connectapi::get_content(client))
-  locked_users = suppress(connectapi::get_users(client)) |>
+  locked_users = suppress(connectapi::get_users(client)) %>%
     dplyr::filter(.data$locked)
   locked_content = dplyr::inner_join(
     content,
     locked_users,
     by = dplyr::join_by("owner_guid" == "guid")
-  ) |>
-    dplyr::group_by(.data$username) |>
-    dplyr::summarise(n = dplyr::n()) |>
+  ) %>%
+    dplyr::group_by(.data$username) %>%
+    dplyr::summarise(n = dplyr::n()) %>%
     dplyr::arrange(dplyr::desc(.data$n))
 
   cli::cli_alert_info(