Deprecate geom_errorbarh() (#5961)

* copy `geom-errorbarh.R` contents into `geom-errorbar.R` file

* rewire `geom_errorbarh()` via `geom_errorbar(orientation = "y")`

* <GeomErrorbarh> is copy of <GeomErrorbar>

* document `geom_errorbarh()` as deprecated along with rest of interval geoms

* throw deprecation warnings

* excuse `geom_errorbarh()` from test

* document

* fix mistakes in passing args

* Let `GeomErrorbarh` throw deprecation message with same `id`

* test for deprecation messages

Author: teunbrand

DESCRIPTION

@@ -151,7 +151,6 @@ Collate:
     'geom-density2d.R'
     'geom-dotplot.R'
     'geom-errorbar.R'
-    'geom-errorbarh.R'
     'geom-freqpoly.R'
     'geom-function.R'
     'geom-hex.R'

R/geom-errorbar.R

@@ -23,6 +23,35 @@ geom_errorbar <- function(mapping = NULL, data = NULL,
   )
 }
 
+#' @export
+#' @rdname geom_linerange
+#' @note
+#' `geom_errorbarh()` is `r lifecycle::badge("deprecated")`. Use
+#' `geom_errorbar(orientation = "y")` instead.
+geom_errorbarh <- function(mapping = NULL, data = NULL,
+                           stat = "identity", position = "identity",
+                           ...,
+                           orientation = "y",
+                           na.rm = FALSE,
+                           show.legend = NA,
+                           inherit.aes = TRUE) {
+  deprecate_soft0(
+    "3.5.2", "geom_errobarh()", "geom_errorbar(orientation = \"y\")",
+    id = "no-more-errorbarh"
+  )
+  geom_errorbar(
+    mapping = mapping,
+    data = data,
+    stat = stat,
+    position = position,
+    ...,
+    orientation = orientation,
+    na.rm = na.rm,
+    show.legend = show.legend,
+    inherit.aes = inherit.aes
+  )
+}
+
 #' @rdname ggplot2-ggproto
 #' @format NULL
 #' @usage NULL
@@ -80,3 +109,18 @@ GeomErrorbar <- ggproto("GeomErrorbar", Geom,
 
   rename_size = TRUE
 )
+
+#' @rdname ggplot2-ggproto
+#' @format NULL
+#' @usage NULL
+#' @export
+GeomErrorbarh <- ggproto(
+  "GeomErrorbarh", GeomErrorbar,
+  setup_params = function(data, params) {
+    deprecate_soft0(
+      "3.5.2", "geom_errobarh()", "geom_errorbar(orientation = \"y\")",
+      id = "no-more-errorbarh"
+    )
+    GeomLinerange$setup_params(data, params)
+  }
+)

R/geom-errorbarh.R

@@ -11,8 +11,7 @@
 #'   `geom_pointrange()`.
 #' @seealso
 #'  [stat_summary()] for examples of these guys in use,
-#'  [geom_smooth()] for continuous analogue,
-#'  [geom_errorbarh()] for a horizontal error bar.
+#'  [geom_smooth()] for continuous analogue
 #' @export
 #' @inheritParams layer
 #' @inheritParams geom_bar