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) {