- Remove is_vector_s3() (#19).

krlmlr · krlmlr · commit 439cd1e270fd · 2021-05-25T05:57:53.000+02:00
Closes #19.
diff --git a/R/format.R b/R/format.R
@@ -27,9 +27,6 @@ vec_ptype_full.blob <- function(x) {
   "blob"
 }
 
-# Dynamically exported, see zzz.R
-is_vector_s3.blob <- function(x) TRUE
-
 blob_size <- function(x, digits = 3, trim = TRUE, ...) {
   x <- vapply(x, length, numeric(1))
   if (isTRUE(trim)) {
diff --git a/R/zzz.R b/R/zzz.R
@@ -1,7 +1,6 @@
 # nocov start
 .onLoad <- function(...) {
   s3_register("pillar::pillar_shaft", "blob")
-  s3_register("pillar::is_vector_s3", "blob")
 
   invisible()
 }

Original file line number	Diff line number	Diff line change
`@@ -27,9 +27,6 @@ vec_ptype_full.blob <- function(x) {`
`27`	`27`	`"blob"`
`28`	`28`	`}`
`29`	`29`
`30`		`-# Dynamically exported, see zzz.R`
`31`		`-is_vector_s3.blob <- function(x) TRUE`
`32`		`-`
`33`	`30`	`blob_size <- function(x, digits = 3, trim = TRUE, ...) {`
`34`	`31`	`x <- vapply(x, length, numeric(1))`
`35`	`32`	`if (isTRUE(trim)) {`
Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,6 @@`
`1`	`1`	`# nocov start`
`2`	`2`	`.onLoad <- function(...) {`
`3`	`3`	`s3_register("pillar::pillar_shaft", "blob")`
`4`		`- s3_register("pillar::is_vector_s3", "blob")`
`5`	`4`
`6`	`5`	`invisible()`
`7`	`6`	`}`