RC 0.4.3 (#248)

* Add package anchors, format with air

* Redocument

* Update README and NEWS

* Update GH actions

* Don't need to specify vdiffr version anymore

* Run revdeps, update CRAN comments

* Increment version number to 0.4.3

Author: juliasilge

.github/workflows/R-CMD-check-hard.yaml

@@ -31,7 +31,7 @@ jobs:
       R_KEEP_PKG_SOURCE: yes
 
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-pandoc@v2
 

.github/workflows/R-CMD-check.yaml

@@ -30,7 +30,7 @@ jobs:
       R_KEEP_PKG_SOURCE: yes
 
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-pandoc@v2
 
@@ -43,8 +43,7 @@ jobs:
       - uses: r-lib/actions/setup-r-dependencies@v2
         with:
           extra-packages: 
-            any::rcmdcheck,
-            [email protected]
+            any::rcmdcheck
           needs: check
 
       - uses: r-lib/actions/check-r-package@v2

.github/workflows/pkgdown.yaml

@@ -20,7 +20,7 @@ jobs:
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-pandoc@v2
 

.github/workflows/pr-commands.yaml

@@ -14,7 +14,7 @@ jobs:
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/pr-fetch@v2
         with:
@@ -51,7 +51,7 @@ jobs:
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/pr-fetch@v2
         with:

.github/workflows/test-coverage.yaml

@@ -15,7 +15,7 @@ jobs:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
 
     steps:
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-r@v2
         with:

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: tidytext
 Title: Text Mining using 'dplyr', 'ggplot2', and Other Tidy Tools
-Version: 0.4.2.9000
+Version: 0.4.3
 Authors@R: c(
     person("Gabriela", "De Queiroz", , "[email protected]", role = "ctb"),
     person("Colin", "Fay", , "[email protected]", role = "ctb",
@@ -74,4 +74,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: TRUE
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

NEWS.md

@@ -1,4 +1,6 @@
-# tidytext (development version)
+# tidytext 0.4.3
+
+* Updated package anchors in roxygen comments
 
 # tidytext 0.4.2
 

R/bind_tf_idf.R

@@ -54,10 +54,13 @@ bind_tf_idf <- function(tbl, term, document, n) {
   tbl$idf <- as.numeric(idf[terms])
   tbl$tf_idf <- tbl$tf * tbl$idf
 
-  if(any(tbl$idf < 0, na.rm = TRUE)) {
-    rlang::warn(paste("A value for tf_idf is negative:\n",
-                      "Input should have exactly one row per document-term combination."))
+  if (any(tbl$idf < 0, na.rm = TRUE)) {
+    rlang::warn(
+      paste(
+        "A value for tf_idf is negative:\n",
+        "Input should have exactly one row per document-term combination."
+      )
+    )
   }
   tbl
 }
-

R/compat_lazyeval.R

@@ -3,22 +3,25 @@
 # This file serves as a reference for compatibility functions for lazyeval.
 # Please find the most recent version in rlang's repository.
 
-
 warn_underscored <- function() {
   return(NULL)
-  warn(paste(
-    "The underscored versions are deprecated in favour of",
-    "tidy evaluation idioms. Please see the documentation",
-    "for `quo()` in rlang"
-  ))
+  warn(
+    paste(
+      "The underscored versions are deprecated in favour of",
+      "tidy evaluation idioms. Please see the documentation",
+      "for `quo()` in rlang"
+    )
+  )
 }
 warn_text_se <- function() {
   return(NULL)
   warn("Text parsing is deprecated, please supply an expression or formula")
 }
 
 compat_lazy <- function(lazy, env = caller_env(), warn = TRUE) {
-  if (warn) warn_underscored()
+  if (warn) {
+    warn_underscored()
+  }
 
   if (missing(lazy)) {
     return(quo())
@@ -30,11 +33,14 @@ compat_lazy <- function(lazy, env = caller_env(), warn = TRUE) {
     return(as_quosure(lazy, env))
   }
 
-  out <- switch(typeof(lazy),
+  out <- switch(
+    typeof(lazy),
     symbol = ,
     language = new_quosure(lazy, env),
     character = {
-      if (warn) warn_text_se()
+      if (warn) {
+        warn_text_se()
+      }
       parse_quo(lazy[[1]], env)
     },
     logical = ,
@@ -46,10 +52,9 @@ compat_lazy <- function(lazy, env = caller_env(), warn = TRUE) {
       }
       new_quosure(lazy, env)
     },
-    list =
-      if (inherits(lazy, "lazy")) {
-        lazy = new_quosure(lazy$expr, lazy$env)
-      }
+    list = if (inherits(lazy, "lazy")) {
+      lazy = new_quosure(lazy$expr, lazy$env)
+    }
   )
 
   if (is_null(out)) {
@@ -78,7 +83,11 @@ compat_lazy_dots <- function(dots, env, ..., .named = FALSE) {
 
   named <- have_name(dots)
   if (.named && any(!named)) {
-    nms <- vapply(dots[!named], function(x) expr_text(get_expr(x)), character(1))
+    nms <- vapply(
+      dots[!named],
+      function(x) expr_text(get_expr(x)),
+      character(1)
+    )
     names(dots)[!named] <- nms
   }
 
@@ -87,14 +96,16 @@ compat_lazy_dots <- function(dots, env, ..., .named = FALSE) {
 }
 
 compat_as_lazy <- function(quo) {
-  structure(class = "lazy", list(
-    expr = get_expr(quo),
-    env = get_env(quo)
-  ))
+  structure(
+    class = "lazy",
+    list(
+      expr = get_expr(quo),
+      env = get_env(quo)
+    )
+  )
 }
 compat_as_lazy_dots <- function(...) {
   structure(class = "lazy_dots", lapply(quos(...), compat_as_lazy))
 }
 
-
 # nocov end

R/corpus_tidiers.R

@@ -52,7 +52,7 @@ tidy.Corpus <- function(x, collapse = "\n", ...) {
       # keep as a list column
       return(m)
     }
-    m <- purrr::map_at(m, which(lengths == 0), ~ NA)
+    m <- purrr::map_at(m, which(lengths == 0), ~NA)
 
     ret <- unname(do.call(c, m))
     ## tbl_df() doesn't support POSIXlt format
@@ -78,7 +78,6 @@ tidy.Corpus <- function(x, collapse = "\n", ...) {
   ret
 }
 
-
 #' Tidiers for a corpus object from the quanteda package
 #'
 #' Tidy a corpus object from the quanteda package. `tidy` returns a
@@ -115,14 +114,15 @@ tidy.Corpus <- function(x, collapse = "\n", ...) {
 #'
 #' @export
 tidy.corpus <- function(x, ...) {
-  tibble::as_tibble(data.frame(
-    text = as.character(x),
-    quanteda::docvars(x),
-    stringsAsFactors = FALSE
-  ))
+  tibble::as_tibble(
+    data.frame(
+      text = as.character(x),
+      quanteda::docvars(x),
+      stringsAsFactors = FALSE
+    )
+  )
 }
 
-
 #' @rdname corpus_tidiers
 #' @export
 glance.corpus <- function(x, ...) {