fix #6513

Author: teunbrand

R/coord-radial.R

@@ -136,7 +136,7 @@ coord_radial <- function(theta = "x",
   }
   if (lifecycle::is_present(direction)) {
     deprecate_warn0(
-      "3.5.2", "coord_radial(direction)", "coord_radial(reverse)"
+      "4.0.0", "coord_radial(direction)", "coord_radial(reverse)"
     )
     reverse <- switch(reverse, "r" = "thetar", "theta")
   }

R/coord-transform.R

@@ -113,7 +113,7 @@ coord_transform <- function(x = "identity", y = "identity", xlim = NULL, ylim =
 #' @export
 coord_trans <- function(...) {
   deprecate_soft0(
-    "3.5.2",
+    "4.0.0",
     "coord_trans()",
     "coord_transform()"
   )

R/facet-wrap.R

@@ -569,7 +569,7 @@ wrap_layout <- function(id, dims, dir) {
     # Should only occur when `as.table` was not incorporated into `dir`
     dir <- switch(dir, h = "lt", v = "tl")
     deprecate_soft0(
-      "3.5.2",
+      "4.0.0",
       what = I("Internal use of `dir = \"h\"` and `dir = \"v\"` in `facet_wrap()`"),
       details = I(c(
         "The `dir` argument should incorporate the `as.table` argument.",

R/geom-boxplot.R

@@ -241,7 +241,7 @@ GeomBoxplot <- ggproto("GeomBoxplot", Geom,
   setup_params = function(data, params) {
     if ("fatten" %in% names(params)) {
       deprecate_soft0(
-        "3.6.0", "geom_boxplot(fatten)",
+        "4.0.0", "geom_boxplot(fatten)",
         "geom_boxplot(median.linewidth)"
       )
     } else {

R/geom-crossbar.R

@@ -62,7 +62,7 @@ GeomCrossbar <- ggproto("GeomCrossbar", Geom,
   setup_params = function(data, params) {
     if (lifecycle::is_present(params$fatten %||% deprecated())) {
       deprecate_soft0(
-        "3.6.0", "geom_crossbar(fatten)",
+        "4.0.0", "geom_crossbar(fatten)",
         "geom_crossbar(middle.linewidth)"
       )
     } else {

R/geom-errorbar.R

@@ -69,7 +69,7 @@ GeomErrorbarh <- ggproto(
   "GeomErrorbarh", GeomErrorbar,
   setup_params = function(data, params) {
     deprecate_soft0(
-      "3.5.2", "geom_errobarh()", "geom_errorbar(orientation = \"y\")",
+      "4.0.0", "geom_errobarh()", "geom_errorbar(orientation = \"y\")",
       id = "no-more-errorbarh"
     )
     GeomLinerange$setup_params(data, params)
@@ -87,7 +87,7 @@ geom_errorbar <- make_constructor(GeomErrorbar, orientation = NA)
 #' `geom_errorbar(orientation = "y")` instead.
 geom_errorbarh <- function(..., orientation = "y") {
   deprecate_soft0(
-    "3.5.2", "geom_errobarh()", "geom_errorbar(orientation = \"y\")",
+    "4.0.0", "geom_errobarh()", "geom_errorbar(orientation = \"y\")",
     id = "no-more-errorbarh"
   )
   geom_errorbar(..., orientation = orientation)

R/geom-pointrange.R

@@ -16,7 +16,7 @@ GeomPointrange <- ggproto("GeomPointrange", Geom,
 
   setup_params = function(data, params) {
     if (lifecycle::is_present(params$fatten %||% deprecated())) {
-      deprecate_soft0("3.6.0", "geom_pointrange(fatten)", I("the `size` aesthetic"))
+      deprecate_soft0("4.0.0", "geom_pointrange(fatten)", I("the `size` aesthetic"))
     } else {
       # For backward compatibility reasons
       params$fatten <- 4

R/geom-violin.R

@@ -111,7 +111,7 @@ geom_violin <- function(mapping = NULL, data = NULL,
   extra <- list()
   if (lifecycle::is_present(draw_quantiles)) {
     deprecate_soft0(
-      "3.6.0",
+      "4.0.0",
       what = "geom_violin(draw_quantiles)",
       with = "geom_violin(quantiles.linetype)"
     )

R/stat-summary-2d.R

@@ -15,7 +15,7 @@ StatSummary2d <- ggproto(
       params$drop <- !identical(params$drop, "none")
     }
 
-    params <- fix_bin_params(params, fun = snake_class(self), version = "3.5.2")
+    params <- fix_bin_params(params, fun = snake_class(self), version = "4.0.0")
     vars <- c("origin", "binwidth", "breaks", "center", "boundary")
     params[vars] <- lapply(params[vars], dual_param, default = NULL)
     params$closed <- dual_param(params$closed, list(x = "right", y = "right"))

R/stat-ydensity.R

@@ -12,7 +12,7 @@ StatYdensity <- ggproto(
 
     if (!is.null(params$draw_quantiles)) {
       deprecate_soft0(
-        "3.6.0",
+        "4.0.0",
         what = "stat_ydensity(draw_quantiles)",
         with = "stat_ydensity(quantiles)"
       )