From de27f1aafcf9d413c89dbe82885b4262c60e6cdf Mon Sep 17 00:00:00 2001
From: Garrick Aden-Buie <garrick@adenbuie.com>
Date: Sun, 23 Feb 2025 08:57:21 -0500
Subject: [PATCH] chore: No native pipe yet

---
 R/get-pkg.R | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/R/get-pkg.R b/R/get-pkg.R
index b65853a..836a48d 100644
--- a/R/get-pkg.R
+++ b/R/get-pkg.R
@@ -77,15 +77,16 @@ get_package_help <- function(package_name) {
     ignore.case = TRUE
   )
 
-  res <- help_db$matches |>
-    dplyr::group_by(Name) |>
-    dplyr::summarize(
-      topic_id = dplyr::first(Name),
-      title = dplyr::first(Entry[Field == "Title"]),
-      aliases = list(I(Entry[Field == "alias"]))
-    ) |>
-    dplyr::ungroup() |>
-    dplyr::select(topic_id, title, aliases)
+  res <- help_db$matches
+  res <- dplyr::group_by(res, Name)
+  res <- dplyr::summarize(
+    res,
+    topic_id = dplyr::first(Name),
+    title = dplyr::first(Entry[Field == "Title"]),
+    aliases = list(I(Entry[Field == "alias"]))
+  )
+  res <- dplyr::ungroup(res)
+  res <- dplyr::select(res, topic_id, title, aliases)
 
   get_data_frame(res, format = "json", dims = c(Inf, Inf))
 }