Deprecate geom_errorbarh()

DESCRIPTION

@@ -150,7 +150,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-linerange.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

tests/testthat/test-function-args.R

@@ -13,7 +13,7 @@ test_that("geom_xxx and GeomXxx$draw arg defaults match", {
     geom_fun_names,
     c("geom_map", "geom_sf", "geom_smooth", "geom_column", "geom_area",
       "geom_density", "annotation_custom", "annotation_map", "annotation_raster",
-      "annotation_id")
+      "annotation_id", "geom_errorbarh")
   )
 
   # For each geom_xxx function and the corresponding GeomXxx$draw and

tests/testthat/test-geom-errorbar.R

@@ -0,0 +1,16 @@
+test_that("geom_errorbarh throws deprecation messages", {
+
+  lifecycle::expect_deprecated(geom_errorbarh())
+
+  p <- ggplot(
+    data.frame(y = "A", min = 0, max = 10),
+    aes(y = y, xmin = min, xmax = max)
+  ) +
+    layer(
+      geom = "errorbarh",
+      stat = "identity",
+      position = "identity"
+    )
+
+  lifecycle::expect_deprecated(ggplot_build(p))
+})