Fix url build in mergeDuplicateCollocates
Change-Id: I29bed7930066bd794359f60cb4a27198134c3c20
diff --git a/R/collocationScoreQuery.R b/R/collocationScoreQuery.R
index fcdce78..9a93eab 100644
--- a/R/collocationScoreQuery.R
+++ b/R/collocationScoreQuery.R
@@ -188,7 +188,7 @@
#' @return tibble with unique collocate rows
#'
#' @importFrom dplyr bind_rows group_by summarise ungroup mutate across first everything
-#' @importFrom httr2 url_parse url_build
+#' @importFrom httr2 url_modify
#' @export
mergeDuplicateCollocates <- function(...) {
# https://stackoverflow.com/questions/8096313/no-visible-binding-for-global-variable-note-in-r-cmd-check
@@ -196,9 +196,7 @@
combined_df <- bind_rows(...)
- korapUrl <- httr2::url_parse(combined_df$webUIRequestUrl[1])
- korapUrl$query <- ''
- korapUrl <- httr2::url_build(korapUrl)
+ korapUrl <- combined_df$webUIRequestUrl[1] |> httr2::url_modify(query="")
# Group by collocate and summarize
combined_df %>%