Merge pull request #336 from r-lib/f-181-is-vector

- `is_vector_s3()` is no longer generic (#181).

NAMESPACE

@@ -34,7 +34,6 @@ S3method(format_type_sum,default)
 S3method(glimpse,data.frame)
 S3method(glimpse,default)
 S3method(glimpse,tbl)
-S3method(is_vector_s3,default)
 S3method(obj_print_data,pillar_vctr)
 S3method(obj_print_footer,pillar_vctr)
 S3method(obj_print_header,pillar_vctr)

R/deprecated.R

@@ -5,25 +5,15 @@ NULL
 
 #' is_vector_s3()
 #'
-#' `is_vector_s3()` returns `TRUE` if an object represents an S3 vector.
-#' The default implementation forwards to [vctrs::vec_is()].
+#' `is_vector_s3()` forwards to [vctrs::vec_is()].
 #'
 #' @section Lifecycle:
-#' `is_vector_s3()` is soft-deprecated, because [vctrs::vec_is()]
-#' provides the same functionality based on a robust framework.
-#' The generic will remain available for a while but is no longer used.
-#' Users and implementers are encouraged to ensure that `vctrs::vec_is()`
-#' is `TRUE` for their class.
+#' `is_vector_s3()` is soft-deprecated and no longer generic,
+#'  use [vctrs::vec_is()] instead.
 #'
 #' @export
 #' @rdname deprecated
 is_vector_s3 <- function(x) {
   deprecate_soft("1.4.4", "pillar::is_vector_s3()", "vctrs::vec_is()")
-
-  UseMethod("is_vector_s3")
-}
-
-#' @export
-is_vector_s3.default <- function(x) {
   vec_is(x)
 }