- is_vector_s3() is no longer reexported from pillar (#789).

Closes #789.

NAMESPACE

@@ -50,7 +50,6 @@ export(has_name)
 export(has_rownames)
 export(is.tibble)
 export(is_tibble)
-export(is_vector_s3)
 export(knit_print.trunc_mat)
 export(lst)
 export(lst_)
@@ -77,7 +76,6 @@ import(lifecycle)
 import(rlang)
 importFrom(magrittr,"%>%")
 importFrom(methods,setOldClass)
-importFrom(pillar,is_vector_s3)
 importFrom(pillar,new_pillar_title)
 importFrom(pillar,new_pillar_type)
 importFrom(pillar,obj_sum)

R/tbl_sum.R

@@ -11,7 +11,7 @@
 #' @return A named character vector, describing the dimensions in the first element
 #'   and the data source in the name of the first element.
 #'
-#' @seealso [pillar::type_sum()], [pillar::is_vector_s3()]
+#' @seealso [pillar::type_sum()]
 #' @param x Object to summarise
 #' @export
 # Can be overridden in .onLoad()
@@ -34,7 +34,7 @@ dim_desc <- function(x) {
 }
 
 size_sum <- function(x) {
-  if (!is_vector_s3(x)) return("")
+  if (!vec_is(x)) return("")
 
   paste0(" [", dim_desc(x), "]")
 }
@@ -49,7 +49,3 @@ pillar::type_sum
 
 #' @export
 type_sum.tbl_df <- function(x) "tibble"
-
-#' @importFrom pillar is_vector_s3
-#' @export
-pillar::is_vector_s3

tests/testthat/tbl_sum.txt

@@ -15,11 +15,8 @@
 > dim_desc(1:3)
 [1] "3"
 
-> size_sum(iris)
-Warning: `is_vector_s3()` is soft-deprecated in favor of `vctrs::vec_is()`.
-This warning is displayed once per session.
-
-[1] " [150 x 5]"
+> size_sum(trees)
+[1] " [31 x 3]"
 
 > size_sum(Titanic)
 [1] " [4 x 2 x 2 x 2]"

tests/testthat/test-tbl_sum.R

@@ -7,7 +7,7 @@ test_that("output", {
     dim_desc(Titanic)
     dim_desc(1:3)
 
-    size_sum(iris)
+    size_sum(trees)
     size_sum(Titanic)
     size_sum(1:3)
   })