commit f5a3701756846fb01b1c9627515cd3636ca20bec
author Marc Kupietz <kupietz@ids-mannheim.de> Fri Feb 28 15:48:23 2025 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Sun Apr 06 17:58:49 2025 +0200
tree 18f8de668d71eaf6783d9c9fc0c74560e79b6dc5
parent 4cd066d7370f3e708169e8229d96258823e4202d

💄 Start switching to base R pipe

Change-Id: I9a7cadb089e150deb1e58f33b8944ea789cd612f

R/collocationAnalysis.R

diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index ca487da..747abde 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -156,8 +156,8 @@
                   ignoreCollocateCase = ignoreCollocateCase,
                   withinSpan = withinSpan,
                   ...
-                ) %>%
-                  filter(.$O >= minOccur) %>%
+                ) |>
+                  filter(O >= minOccur) |>
                   dplyr::arrange(dplyr::desc(logDice))
               } else {
                 tibble()
@@ -187,10 +187,10 @@
                 searchHitsSampleLimit = searchHitsSampleLimit,
                 topCollocatesLimit = topCollocatesLimit,
                 addExamples = FALSE
-              ) %>%
-                bind_rows(result) %>%
-                filter(logDice >= 2) %>%
-                filter(.$O >= minOccur) %>%
+              ) |>
+                bind_rows(result) |>
+                filter(logDice >= 2) |>
+                filter(.$O >= minOccur) |>
                 dplyr::arrange(dplyr::desc(logDice))
             }
             if (addExamples && length(result) > 0) {