tidyverse · MikeJohnPage · Jun 19, 2025 · Jun 19, 2025 · Jun 19, 2025 · Jun 19, 2025
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -16,3 +16,5 @@
 ^CRAN-RELEASE$
 ^\.github$
 ^LICENSE\.md$
+^[\.]?air\.toml$
+^\.vscode$
diff --git a/.vscode/extensions.json b/.vscode/extensions.json
@@ -0,0 +1,5 @@
+{
+    "recommendations": [
+        "Posit.air-vscode"
+    ]
+}
diff --git a/.vscode/settings.json b/.vscode/settings.json
@@ -0,0 +1,6 @@
+{
+    "[r]": {
+        "editor.formatOnSave": true,
+        "editor.defaultFormatter": "Posit.air-vscode"
+    }
+}
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -21,10 +21,11 @@ Suggests:
     covr,
     crayon,
     pillar (>= 1.2.1),
-    testthat
+    testthat (>= 3.0.0)
 Config/autostyle/scope: line_breaks
 Config/autostyle/strict: false
 Config/Needs/website: tidyverse/tidytemplate
+Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2.9000
diff --git a/R/blob-package.R b/R/blob-package.R
@@ -0,0 +1,7 @@
+#' @keywords internal
+"_PACKAGE"
+
+#' @import vctrs
+#' @import rlang
+#' @importFrom methods setOldClass
+NULL
diff --git a/R/blob.R b/R/blob.R
@@ -1,8 +1,3 @@
-#' @import vctrs
-#' @import rlang
-NULL
-
-#' @importFrom methods setOldClass
 setOldClass(c("blob", "vctrs_list_of", "vctrs_vctr"))
 
 #' Construct a blob object

diff --git a/R/cast.R b/R/cast.R
@@ -31,7 +31,9 @@ vec_cast.blob.vctrs_list_of <- function(x, to, ...) {
 #' @method vec_cast.blob integer
 #' @export
 vec_cast.blob.integer <- function(x, to, ...) {
-  signal_soft_deprecated("Coercing an integer vector to a blob is deprecated, please coerce to a list first.")
+  signal_soft_deprecated(
+    "Coercing an integer vector to a blob is deprecated, please coerce to a list first."
+  )
   blob(!!!lapply(x, as_single_raw))
 }
 

diff --git a/R/coerce.R b/R/coerce.R
@@ -7,7 +7,9 @@
 #' @method vec_ptype2 blob
 #' @export
 #' @export vec_ptype2.blob
-vec_ptype2.blob <- function(x, y, ..., x_arg = "", y_arg = "") UseMethod("vec_ptype2.blob", y)
+vec_ptype2.blob <- function(x, y, ..., x_arg = "", y_arg = "") {
+  UseMethod("vec_ptype2.blob", y)
+}
 
 #' @method vec_ptype2.blob default
 #' @export

diff --git a/R/compat-lifecycle.R b/R/compat-lifecycle.R
@@ -25,7 +25,6 @@
 #
 # - Soft-namespaced private objects.
 
-
 #' Signal deprecation
 #'
 #' @description
@@ -99,18 +98,23 @@ signal_soft_deprecated <- function(msg, id = msg, env = rlang::caller_env(2)) {
     rlang::is_reference(topenv(env), rlang::global_env())
   }
 
-  if (rlang::is_true(rlang::peek_option("lifecycle_verbose_soft_deprecation")) ||
-    env_inherits_global(env)) {
+  if (
+    rlang::is_true(rlang::peek_option("lifecycle_verbose_soft_deprecation")) ||
+      env_inherits_global(env)
+  ) {
     warn_deprecated(msg, id)
     return(invisible(NULL))
   }
 
   # Test for environment names rather than reference/contents because
   # testthat clones the namespace
   tested_package <- Sys.getenv("TESTTHAT_PKG")
-  if (nzchar(tested_package) &&
-    identical(Sys.getenv("NOT_CRAN"), "true") &&
-    rlang::env_name(topenv(env)) == rlang::env_name(rlang::ns_env(tested_package))) {
+  if (
+    nzchar(tested_package) &&
+      identical(Sys.getenv("NOT_CRAN"), "true") &&
+      rlang::env_name(topenv(env)) ==
+        rlang::env_name(rlang::ns_env(tested_package))
+  ) {
     warn_deprecated(msg, id)
     return(invisible(NULL))
   }
@@ -126,12 +130,14 @@ warn_deprecated <- function(msg, id = msg) {
     return(invisible(NULL))
   }
 
-  if (!rlang::is_true(rlang::peek_option("lifecycle_repeat_warnings")) &&
-    rlang::env_has(.rlang_lifecycle_deprecation_env, id)) {
+  if (
+    !rlang::is_true(rlang::peek_option("lifecycle_repeat_warnings")) &&
+      rlang::env_has(.rlang_lifecycle_deprecation_env, id)
+  ) {
     return(invisible(NULL))
   }
 
-  rlang::env_poke(.rlang_lifecycle_deprecation_env, id, TRUE);
+  rlang::env_poke(.rlang_lifecycle_deprecation_env, id, TRUE)
 
   has_colour <- function() rlang::is_installed("crayon") && crayon::has_color()
   silver <- function(x) if (has_colour()) crayon::silver(x) else x
@@ -143,7 +149,11 @@ warn_deprecated <- function(msg, id = msg) {
   }
 
   if (!rlang::is_true(rlang::peek_option("lifecycle_repeat_warnings"))) {
-    msg <- paste0(msg, "\n", silver("This warning is displayed once per session."))
+    msg <- paste0(
+      msg,
+      "\n",
+      silver("This warning is displayed once per session.")
+    )
   }
 
   .Signal(msg = msg)
@@ -163,17 +173,16 @@ stop_defunct <- function(msg) {
 }
 
 local_lifecycle_silence <- function(frame = rlang::caller_env()) {
-  rlang::local_options(.frame = frame,
-    lifecycle_disable_warnings = TRUE
-  )
+  rlang::local_options(.frame = frame, lifecycle_disable_warnings = TRUE)
 }
 with_lifecycle_silence <- function(expr) {
   local_lifecycle_silence()
   expr
 }
 
 local_lifecycle_warnings <- function(frame = rlang::caller_env()) {
-  rlang::local_options(.frame = frame,
+  rlang::local_options(
+    .frame = frame,
     lifecycle_disable_warnings = FALSE,
     lifecycle_verbose_soft_deprecation = TRUE,
     lifecycle_repeat_warnings = TRUE
@@ -186,9 +195,7 @@ with_lifecycle_warnings <- function(expr) {
 
 local_lifecycle_errors <- function(frame = rlang::caller_env()) {
   local_lifecycle_warnings(frame = frame)
-  rlang::local_options(.frame = frame,
-    lifecycle_warnings_as_errors = TRUE
-  )
+  rlang::local_options(.frame = frame, lifecycle_warnings_as_errors = TRUE)
 }
 with_lifecycle_errors <- function(expr) {
   local_lifecycle_errors()

diff --git a/R/format.R b/R/format.R
@@ -1,15 +1,17 @@
 #' @export
 format.blob <- function(x, ...) {
-  if (length(x) == 0)
+  if (length(x) == 0) {
     return(character())
+  }
 
   ifelse(is.na(x), "<NA>", paste0("blob[", blob_size(x, ...), "]"))
 }
 
 #' @export
 obj_print_data.blob <- function(x, ...) {
-  if (length(x) == 0)
+  if (length(x) == 0) {
     return()
+  }
 
   out <- stats::setNames(format(x), names(x))
   print(out, quote = FALSE)
@@ -41,7 +43,11 @@ pillar_shaft.blob <- function(x, ...) {
   out <- ifelse(
     is.na(x),
     NA_character_,
-    paste0(pillar::style_subtle("<raw "), blob_size(x, ...), pillar::style_subtle(">"))
+    paste0(
+      pillar::style_subtle("<raw "),
+      blob_size(x, ...),
+      pillar::style_subtle(">")
+    )
   )
 
   pillar::new_pillar_shaft_simple(out, align = "right")

diff --git a/R/util.R b/R/util.R
@@ -1,12 +1,14 @@
 is_raw_list <- function(x) {
-  if (!is.list(x))
+  if (!is.list(x)) {
     return(FALSE)
+  }
 
   raw <- vapply(x, is.raw, logical(1))
   null <- vapply(x, is.null, logical(1))
 
-  if (!all(raw | null))
+  if (!all(raw | null)) {
     return(FALSE)
+  }
 
   TRUE
 }

diff --git a/README.Rmd b/README.Rmd
@@ -1,5 +1,7 @@
 ---
-output: downlit::readme_document
+output:
+  github_document:
+    html_preview: false
 ---
 
 <!-- badges: start -->
@@ -19,6 +21,41 @@ knitr::opts_chunk$set(
   comment = "#>",
   fig.path = "README-"
 )
+
+clean_output <- function(x, options) {
+  x <- gsub("0x[0-9a-f]+", "0xdeadbeef", x)
+  x <- gsub("dataframe_[0-9]*_[0-9]*", "      dataframe_42_42      ", x)
+  x <- gsub("[0-9]*\\.___row_number ASC", "42.___row_number ASC", x)
+
+  index <- x
+  index <- gsub("─", "-", index)
+  index <- strsplit(paste(index, collapse = "\n"), "\n---\n")[[1]][[2]]
+  writeLines(index, "index.md")
+
+  x <- gsub(
+    '(`vignette[(]"([^"]+)"[)]`)',
+    "[\\1](https://blob.tidyverse.org/articles/\\2.html)",
+    x
+  )
+  x <- fansi::strip_sgr(x)
+  x
+}
+
+options(
+  cli.num_colors = 256,
+  cli.width = 71,
+  width = 71,
+  pillar.bold = TRUE,
+  pillar.max_title_chars = 5,
+  pillar.min_title_chars = 5,
+  pillar.max_footer_lines = 12,
+  conflicts.policy = list(warn = FALSE)
+)
+
+local({
+  hook_source <- knitr::knit_hooks$get("document")
+  knitr::knit_hooks$set(document = clean_output)
+})
 ```
 
 # blob
@@ -39,8 +76,8 @@ install.packages("tidyverse")
 install.packages("blob")
 
 # Or the the development version from GitHub:
-# install.packages("devtools")
-devtools::install_github("tidyverse/blob")
+# install.packages("pak")
+pak::pak("tidyverse/blob")
 ```
 
 ## Example

diff --git a/README.md b/README.md
@@ -1,7 +1,12 @@
-<!-- badges: start -->
 
-[![Lifecycle: stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable) [![rcc](https://github.com/tidyverse/blob/workflows/rcc/badge.svg)](https://github.com/tidyverse/blob/actions) [![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/blob)](https://cran.r-project.org/package=blob) [![Coverage Status](https://codecov.io/gh/tidyverse/blob/branch/main/graph/badge.svg)](https://app.codecov.io/gh/tidyverse/blob)
+<!-- badges: start -->
 
+[![Lifecycle:
+stable](https://img.shields.io/badge/lifecycle-stable-brightgreen.svg)](https://lifecycle.r-lib.org/articles/stages.html#stable)
+[![rcc](https://github.com/tidyverse/blob/workflows/rcc/badge.svg)](https://github.com/tidyverse/blob/actions)
+[![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/blob)](https://cran.r-project.org/package=blob)
+[![Coverage
+Status](https://codecov.io/gh/tidyverse/blob/branch/main/graph/badge.svg)](https://app.codecov.io/gh/tidyverse/blob)
 <!-- badges: end -->
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
@@ -10,44 +15,53 @@
 
 ## Overview
 
-The goal of blob is to provide a simple S3 class to represent a vector of binary objects, aka blobs. The `blob` class is a lightweight wrapper around a list of raw vectors, suitable for inclusion in a data frame.
+The goal of blob is to provide a simple S3 class to represent a vector
+of binary objects, aka blobs. The `blob` class is a lightweight wrapper
+around a list of raw vectors, suitable for inclusion in a data frame.
 
-In most cases you will not need to use this package explicitly: it will be used transparently by packages that need to load BLOB columns from databases or binary file formats.
+In most cases you will not need to use this package explicitly: it will
+be used transparently by packages that need to load BLOB columns from
+databases or binary file formats.
 
 ## Installation
 
-<pre class='chroma'>
-<span><span class='c'># The easiest way to get blob is to install the whole tidyverse:</span></span>
-<span><span class='nf'><a href='https://rdrr.io/r/utils/install.packages.html'>install.packages</a></span><span class='o'>(</span><span class='s'>"tidyverse"</span><span class='o'>)</span></span>
-<span></span>
-<span><span class='c'># Alternatively, install just blob:</span></span>
-<span><span class='nf'><a href='https://rdrr.io/r/utils/install.packages.html'>install.packages</a></span><span class='o'>(</span><span class='s'>"blob"</span><span class='o'>)</span></span>
-<span></span>
-<span><span class='c'># Or the the development version from GitHub:</span></span>
-<span><span class='c'># install.packages("devtools")</span></span>
-<span><span class='nf'>devtools</span><span class='nf'>::</span><span class='nf'><a href='https://remotes.r-lib.org/reference/install_github.html'>install_github</a></span><span class='o'>(</span><span class='s'>"tidyverse/blob"</span><span class='o'>)</span></span></pre>
+``` r
+# The easiest way to get blob is to install the whole tidyverse:
+install.packages("tidyverse")
+
+# Alternatively, install just blob:
+install.packages("blob")
+
+# Or the the development version from GitHub:
+# install.packages("pak")
+pak::pak("tidyverse/blob")
+```
 
 ## Example
 
 To create a blob, use `blob()`, `new_blob()` or `as_blob()`:
 
-<pre class='chroma'>
-<span><span class='kr'><a href='https://rdrr.io/r/base/library.html'>library</a></span><span class='o'>(</span><span class='nv'><a href='https://blob.tidyverse.org'>blob</a></span><span class='o'>)</span></span>
-<span></span>
-<span><span class='nv'>x1</span> <span class='o'>&lt;-</span> <span class='nf'><a href='https://rdrr.io/r/base/rawConversion.html'>charToRaw</a></span><span class='o'>(</span><span class='s'>"Good morning"</span><span class='o'>)</span></span>
-<span><span class='nv'>x2</span> <span class='o'>&lt;-</span> <span class='nf'><a href='https://rdrr.io/r/base/raw.html'>as.raw</a></span><span class='o'>(</span><span class='nf'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='o'>(</span><span class='m'>0x48</span>, <span class='m'>0x65</span>, <span class='m'>0x6c</span>, <span class='m'>0x6c</span>, <span class='m'>0x6f</span><span class='o'>)</span><span class='o'>)</span></span>
-<span></span>
-<span><span class='nf'><a href='https://blob.tidyverse.org/reference/blob.html'>new_blob</a></span><span class='o'>(</span><span class='nf'><a href='https://rdrr.io/r/base/list.html'>list</a></span><span class='o'>(</span><span class='nv'>x1</span>, <span class='nv'>x2</span><span class='o'>)</span><span class='o'>)</span></span>
-<span><span class='c'>#&gt; &lt;blob[2]&gt;</span></span>
-<span><span class='c'>#&gt; [1] blob[12 B] blob[5 B]</span></span>
-<span><span class='nf'><a href='https://blob.tidyverse.org/reference/blob.html'>blob</a></span><span class='o'>(</span><span class='nv'>x1</span>, <span class='nv'>x2</span><span class='o'>)</span></span>
-<span><span class='c'>#&gt; &lt;blob[2]&gt;</span></span>
-<span><span class='c'>#&gt; [1] blob[12 B] blob[5 B]</span></span>
-<span></span>
-<span><span class='nf'><a href='https://blob.tidyverse.org/reference/blob.html'>as_blob</a></span><span class='o'>(</span><span class='nf'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='o'>(</span><span class='s'>"Good morning"</span>, <span class='s'>"Good evening"</span><span class='o'>)</span><span class='o'>)</span></span>
-<span><span class='c'>#&gt; &lt;blob[2]&gt;</span></span>
-<span><span class='c'>#&gt; [1] blob[12 B] blob[12 B]</span></span></pre>
+``` r
+library(blob)
+
+x1 <- charToRaw("Good morning")
+x2 <- as.raw(c(0xdeadbeef, 0xdeadbeef, 0xdeadbeef, 0xdeadbeef, 0xdeadbeef))
+
+new_blob(list(x1, x2))
+#> <blob[2]>
+#> [1] blob[12 B] blob[5 B]
+blob(x1, x2)
+#> <blob[2]>
+#> [1] blob[12 B] blob[5 B]
+
+as_blob(c("Good morning", "Good evening"))
+#> <blob[2]>
+#> [1] blob[12 B] blob[12 B]
+```
 
 ------------------------------------------------------------------------
 
-Please note that the ‘blob’ project is released with a [Contributor Code of Conduct](https://github.com/tidyverse/blob/blob/main/CODE_OF_CONDUCT.md). By contributing to this project, you agree to abide by its terms.
+Please note that the ‘blob’ project is released with a [Contributor Code
+of
+Conduct](https://github.com/tidyverse/blob/blob/main/CODE_OF_CONDUCT.md).
+By contributing to this project, you agree to abide by its terms.
diff --git a/air.toml b/air.toml