Merge commit 'fc4e4940f21f63a6bbe55a01ee11f9800c99af73'

Author: hadley

.Rbuildignore

@@ -21,3 +21,5 @@
 ^LICENSE\.md$
 ^\.github$
 ^CRAN-SUBMISSION$
+^[.]?air[.]toml$
+^\.vscode$

.vscode/extensions.json

@@ -0,0 +1,5 @@
+{
+    "recommendations": [
+        "Posit.air-vscode"
+    ]
+}

.vscode/settings.json

@@ -0,0 +1,10 @@
+{
+    "[r]": {
+        "editor.formatOnSave": true,
+        "editor.defaultFormatter": "Posit.air-vscode"
+    },
+    "[quarto]": {
+        "editor.formatOnSave": true,
+        "editor.defaultFormatter": "quarto.quarto"
+    }
+}

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: stringr
 Title: Simple, Consistent Wrappers for Common String Operations
-Version: 1.5.1.9000
+Version: 1.5.2.9000
 Authors@R: c(
     person("Hadley", "Wickham", , "[email protected]", role = c("aut", "cre", "cph")),
     person("Posit Software, PBC", role = c("cph", "fnd"))
@@ -41,4 +41,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NEWS.md

@@ -14,6 +14,10 @@
   a single vector. This radically improves performance at the cost of breaking
   some existing uses (#462).
 
+# stringr 1.5.2
+
+* `R CMD check` fixes
+
 # stringr 1.5.1
 
 * Some minor documentation improvements.

R/case.R

@@ -39,8 +39,10 @@ str_to_lower <- function(string, locale = "en") {
 #' @rdname case
 str_to_title <- function(string, locale = "en") {
   check_string(locale)
-  out <- stri_trans_totitle(string,
-                            opts_brkiter = stri_opts_brkiter(locale = locale))
+  out <- stri_trans_totitle(
+    string,
+    opts_brkiter = stri_opts_brkiter(locale = locale)
+  )
   copy_names(string, out)
 }
 #' @export

R/compat-obj-type.R

@@ -37,7 +37,6 @@
 # - Added documentation.
 # - Added changelog.
 
-
 #' Return English-friendly type
 #' @param x Any R object.
 #' @param value Whether to describe the value of `x`. Special values
@@ -73,12 +72,11 @@ obj_type_friendly <- function(x, value = TRUE) {
           typeof(x),
           logical = "`NA`",
           integer = "an integer `NA`",
-          double =
-            if (is.nan(x)) {
-              "`NaN`"
-            } else {
-              "a numeric `NA`"
-            },
+          double = if (is.nan(x)) {
+            "`NaN`"
+          } else {
+            "a numeric `NA`"
+          },
           complex = "a complex `NA`",
           character = "a character `NA`",
           .rlang_stop_unexpected_typeof(x)
@@ -280,14 +278,16 @@ obj_type_oo <- function(x) {
 #' @param ... Arguments passed to [abort()].
 #' @inheritParams args_error_context
 #' @noRd
-stop_input_type <- function(x,
-                            what,
-                            ...,
-                            allow_na = FALSE,
-                            allow_null = FALSE,
-                            show_value = TRUE,
-                            arg = caller_arg(x),
-                            call = caller_env()) {
+stop_input_type <- function(
+  x,
+  what,
+  ...,
+  allow_na = FALSE,
+  allow_null = FALSE,
+  show_value = TRUE,
+  arg = caller_arg(x),
+  call = caller_env()
+) {
   # From compat-cli.R
   cli <- env_get_list(
     nms = c("format_arg", "format_code"),

R/compat-purrr.R

@@ -90,11 +90,16 @@ args_recycle <- function(args) {
 }
 pmap <- function(.l, .f, ...) {
   args <- args_recycle(.l)
-  do.call("mapply", c(
-    FUN = list(quote(.f)),
-    args, MoreArgs = quote(list(...)),
-    SIMPLIFY = FALSE, USE.NAMES = FALSE
-  ))
+  do.call(
+    "mapply",
+    c(
+      FUN = list(quote(.f)),
+      args,
+      MoreArgs = quote(list(...)),
+      SIMPLIFY = FALSE,
+      USE.NAMES = FALSE
+    )
+  )
 }
 
 probe <- function(.x, .p, ...) {
@@ -200,5 +205,4 @@ vec_index <- function(x) {
   names(x) %||% seq_along(x)
 }
 
-
 # nocov end