1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
#' Deprecated functions
#' @keywords internal
#' @name deprecated
NULL
#' is_vector_s3()
#'
#' `is_vector_s3()` returns `TRUE` if an object represents an S3 vector.
#' The default implementation 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.
#'
#' @export
#' @rdname deprecated
is_vector_s3 <- function(x) {
deprecate_soft("1.4.4", "is_vector_s3()", "vctrs::vec_is()")
UseMethod("is_vector_s3")
}
#' @export
is_vector_s3.default <- function(x) vctrs::vec_is(x)
|