refactor: remove widyr dependency

R/tm_cooc.R

@@ -26,15 +26,16 @@
 #' @import ggplot2
 #' @import ggraph
 #' @importFrom igraph graph_from_data_frame
-#' @importFrom widyr pairwise_count
 #' @importFrom tidytext unnest_tokens
 #'
 #' @family Text-mining
 #'
 #' @examples
-#' \dontrun{
+#' # Demo using a subset of `mt_data`
-#' tm_cooc(mt_data,lmult = 0.01)
+#' mt_data %>%
-#' }
+#'   dplyr::slice(1:20) %>%
+#'   tm_cooc(lmult = 0.01)
+#'
 #' @export
 tm_cooc <- function(data,
                     stopwords = NULL,
@@ -50,10 +51,7 @@ tm_cooc <- function(data,
   # Calculate frequency of pairs
   title_word_pairs <-
     text_df %>%
-    widyr::pairwise_count(word,
+    pairwise_count(id = "line", word = "word")
-                          line,
-                          sort = TRUE,
-                          upper = FALSE)
 
   # Graph networks
   set.seed(seed)

man/tm_cooc.Rd

@@ -29,9 +29,11 @@ There is an option to remove stopwords by passing a data frame into the \code{st
 argument.
 }
 \examples{
-\dontrun{
+# Demo using a subset of `mt_data`
-tm_cooc(mt_data,lmult = 0.01)
+mt_data \%>\%
-}
+  dplyr::slice(1:20) \%>\%
+  tm_cooc(lmult = 0.01)
+
 }
 \seealso{
 Other Text-mining: