Switch examples to native pipe operator
Change-Id: I7a76e91c690f072a6c176842433e92e83c63b985
diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index 2224ab3..fdb7859 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -129,12 +129,12 @@
#' \dontrun{
#'
#' # Fetch basic metadata for "Ameisenplage"
-#' KorAPConnection() %>%
-#' corpusQuery("Ameisenplage") %>%
+#' KorAPConnection() |>
+#' corpusQuery("Ameisenplage") |>
#' fetchAll()
#'
#' # Fetch specific metadata fields for bibliographic analysis
-#' query <- KorAPConnection() %>%
+#' query <- KorAPConnection() |>
#' corpusQuery("Ameisenplage",
#' fields = c("textSigle", "author", "title", "pubDate", "pubPlace", "textType"))
#' results <- fetchAll(query)
@@ -146,7 +146,7 @@
#' # Use the copy of a KorAP-web-frontend URL for an API query of "Ameise" in a virtual corpus
#' # and show the number of query hits (but don't fetch them).
#'
-#' KorAPConnection(verbose = TRUE) %>%
+#' KorAPConnection(verbose = TRUE) |>
#' corpusQuery(
#' KorAPUrl =
#' "https://korap.ids-mannheim.de/?q=Ameise&cq=pubDate+since+2017&ql=poliqarp"
@@ -156,22 +156,22 @@
#' \dontrun{
#'
#' # Plot the time/frequency curve of "Ameisenplage"
-#' KorAPConnection(verbose = TRUE) %>%
+#' KorAPConnection(verbose = TRUE) |>
#' {
#' . ->> kco
-#' } %>%
-#' corpusQuery("Ameisenplage") %>%
-#' fetchAll() %>%
-#' slot("collectedMatches") %>%
-#' mutate(year = lubridate::year(pubDate)) %>%
-#' dplyr::select(year) %>%
-#' group_by(year) %>%
-#' summarise(Count = dplyr::n()) %>%
+#' } |>
+#' corpusQuery("Ameisenplage") |>
+#' fetchAll() |>
+#' slot("collectedMatches") |>
+#' mutate(year = lubridate::year(pubDate)) |>
+#' dplyr::select(year) |>
+#' group_by(year) |>
+#' summarise(Count = dplyr::n()) |>
#' mutate(Freq = mapply(function(f, y) {
#' f / corpusStats(kco, paste("pubDate in", y))@tokens
-#' }, Count, year)) %>%
-#' dplyr::select(-Count) %>%
-#' complete(year = min(year):max(year), fill = list(Freq = 0)) %>%
+#' }, Count, year)) |>
+#' dplyr::select(-Count) |>
+#' complete(year = min(year):max(year), fill = list(Freq = 0)) |>
#' plot(type = "l")
#' }
#' @seealso [KorAPConnection()], [fetchNext()], [fetchRest()], [fetchAll()], [corpusStats()]
@@ -413,8 +413,8 @@
#' @examples
#' \dontrun{
#'
-#' q <- KorAPConnection() %>%
-#' corpusQuery("Ameisenplage") %>%
+#' q <- KorAPConnection() |>
+#' corpusQuery("Ameisenplage") |>
#' fetchNext()
#' q@collectedMatches
#' }
@@ -763,8 +763,8 @@
#' @examples
#' \dontrun{
#'
-#' q <- KorAPConnection() %>%
-#' corpusQuery("Ameisenplage") %>%
+#' q <- KorAPConnection() |>
+#' corpusQuery("Ameisenplage") |>
#' fetchRest()
#' q@collectedMatches
#' }
diff --git a/man/fetchNext-KorAPQuery-method.Rd b/man/fetchNext-KorAPQuery-method.Rd
index fc39cb8..204af00 100644
--- a/man/fetchNext-KorAPQuery-method.Rd
+++ b/man/fetchNext-KorAPQuery-method.Rd
@@ -33,8 +33,8 @@
\examples{
\dontrun{
-q <- KorAPConnection() \%>\%
- corpusQuery("Ameisenplage") \%>\%
+q <- KorAPConnection() |>
+ corpusQuery("Ameisenplage") |>
fetchNext()
q@collectedMatches
}
diff --git a/man/fetchRest-KorAPQuery-method.Rd b/man/fetchRest-KorAPQuery-method.Rd
index da4b938..ad5ffec 100644
--- a/man/fetchRest-KorAPQuery-method.Rd
+++ b/man/fetchRest-KorAPQuery-method.Rd
@@ -23,8 +23,8 @@
\examples{
\dontrun{
-q <- KorAPConnection() \%>\%
- corpusQuery("Ameisenplage") \%>\%
+q <- KorAPConnection() |>
+ corpusQuery("Ameisenplage") |>
fetchRest()
q@collectedMatches
}