Use common header method in subscript errors

Author: lionel-

NAMESPACE

@@ -110,9 +110,8 @@ S3method(cnd_header,vctrs_error_matches_remaining)
 S3method(cnd_header,vctrs_error_names_cannot_be_dot_dot)
 S3method(cnd_header,vctrs_error_names_cannot_be_empty)
 S3method(cnd_header,vctrs_error_names_must_be_unique)
+S3method(cnd_header,vctrs_error_subscript)
 S3method(cnd_header,vctrs_error_subscript_oob)
-S3method(cnd_header,vctrs_error_subscript_size)
-S3method(cnd_header,vctrs_error_subscript_type)
 S3method(diff,vctrs_vctr)
 S3method(duplicated,vctrs_sclr)
 S3method(duplicated,vctrs_vctr)

R/subscript.R

@@ -174,7 +174,7 @@ new_error_subscript_type <- function(i,
 }
 
 #' @export
-cnd_header.vctrs_error_subscript_type <- function(cnd) {
+cnd_header.vctrs_error_subscript <- function(cnd) {
   arg <- cnd[["subscript_arg"]]
   if (is_subscript_arg(arg)) {
     with <- glue::glue(" with {format_subscript_arg(arg)}")
@@ -233,10 +233,6 @@ new_error_subscript_size <- function(i,
     ...
   )
 }
-#' @export
-cnd_header.vctrs_error_subscript_size <- function(cnd, ...) {
-  cnd_header.vctrs_error_subscript_type(cnd, ...)
-}
 
 new_error_subscript2_type <- function(i,
                                       numeric,