Initial infrastructure for editions: attempt 2

DESCRIPTION

@@ -280,6 +280,7 @@ Collate:
     'utilities-break.R'
     'utilities-grid.R'
     'utilities-help.R'
+    'utilities-lifecycle.R'
     'utilities-patterns.R'
     'utilities-performance.R'
     'utilities-resolution.R'

NAMESPACE

@@ -419,6 +419,7 @@ export(geom_vline)
 export(get_alt_text)
 export(get_element_tree)
 export(get_geom_defaults)
+export(get_ggplot2_edition)
 export(get_guide_data)
 export(get_labs)
 export(get_last_plot)
@@ -493,6 +494,7 @@ export(layer_grob)
 export(layer_scales)
 export(layer_sf)
 export(lims)
+export(local_ggplot2_edition)
 export(make_constructor)
 export(map_data)
 export(margin)
@@ -666,6 +668,7 @@ export(scale_y_reverse)
 export(scale_y_sqrt)
 export(scale_y_time)
 export(sec_axis)
+export(set_ggplot2_edition)
 export(set_last_plot)
 export(set_theme)
 export(sf_transform_xy)
@@ -750,6 +753,7 @@ export(update_stat_defaults)
 export(update_theme)
 export(vars)
 export(waiver)
+export(with_ggplot2_edition)
 export(wrap_dims)
 export(xlab)
 export(xlim)

R/annotation-logticks.R

@@ -93,7 +93,7 @@ annotation_logticks <- function(base = 10, sides = "bl", outside = FALSE, scaled
   if (!is.null(color))
     colour <- color
 
-  lifecycle::signal_stage("superseded", "annotation_logticks()", "guide_axis_logticks()")
+  supersede("2026", "annotation_logticks()", "guide_axis_logticks()")
 
   if (lifecycle::is_present(size)) {
     deprecate("3.5.0", I("Using the `size` aesthetic in this geom"), I("`linewidth`"))

R/coord-flip.R

@@ -57,7 +57,7 @@
 #'   geom_area() +
 #'   coord_flip()
 coord_flip <- function(xlim = NULL, ylim = NULL, expand = TRUE, clip = "on") {
-  lifecycle::signal_stage("superseded", "coord_flip()")
+  supersede("2026", "coord_flip()", with = I("swapping x and y aesthetics"))
   check_coord_limits(xlim)
   check_coord_limits(ylim)
   ggproto(NULL, CoordFlip,

R/coord-map.R

@@ -136,7 +136,7 @@ coord_map <- function(projection="mercator", ..., parameters = NULL, orientation
   } else {
     params <- parameters
   }
-  lifecycle::signal_stage("superseded", "coord_map()", "coord_sf()")
+  supersede("2026", "coord_map()", "coord_sf()")
   check_coord_limits(xlim)
   check_coord_limits(ylim)
 

R/coord-polar.R

@@ -3,7 +3,7 @@
 coord_polar <- function(theta = "x", start = 0, direction = 1, clip = "on") {
   theta <- arg_match0(theta, c("x", "y"))
   r <- if (theta == "x") "y" else "x"
-  lifecycle::signal_stage("superseded", "coord_polar()", "coord_radial()")
+  supersede("2026", "coord_polar()", "coord_radial()")
 
   ggproto(NULL, CoordPolar,
     theta = theta,

R/ggplot-global.R

@@ -52,3 +52,5 @@ ggplot_global$x_aes <- c("x", "xmin", "xmax", "xend", "xintercept",
 
 ggplot_global$y_aes <- c("y", "ymin", "ymax", "yend", "yintercept",
   "ymin_final", "ymax_final", "lower", "middle", "upper", "y0")
+
+ggplot_global$edition <- NULL

R/labels.R

@@ -239,21 +239,21 @@ labs <- function(..., title = waiver(), subtitle = waiver(),
 #' superseded. It is recommended to use the `labs(x, y, title, subtitle)`
 #' arguments instead.
 xlab <- function(label) {
-  lifecycle::signal_stage("superseded", "xlab()", "labs(x)")
+  supersede("2026", "xlab()", "labs(x)")
   labs(x = label)
 }
 
 #' @rdname labs
 #' @export
 ylab <- function(label) {
-  lifecycle::signal_stage("superseded", "ylab()", "labs(y)")
+  supersede("2026", "ylab()", "labs(y)")
   labs(y = label)
 }
 
 #' @rdname labs
 #' @export
 ggtitle <- function(label, subtitle = waiver()) {
-  lifecycle::signal_stage("superseded", "ggtitle()", I("labs(title, subtitle)"))
+  supersede("2026", "ggtitle()", I("labs(title, subtitle)"))
   labs(title = label, subtitle = subtitle)
 }
 

R/limits.R

@@ -184,7 +184,8 @@ limits.POSIXlt <- function(lims, var, call = caller_env()) {
 expand_limits <- function(...) {
   data <- list2(...)
 
-  lifecycle::signal_stage("superseded", "expand_limits()")
+
+  supersede("2026", "expand_limits()")
 
   # unpack data frame columns
   data_dfs <- vapply(data, is.data.frame, logical(1))

R/utilities-lifecycle.R

@@ -0,0 +1,141 @@
+#' Set ggplot2 edition
+#'
+#' ggplot2 uses the 'edition' concept to manage the lifecycles of functions and
+#' arguments. Setting a recent edition opens up the latest features but also
+#' closes down deprecated and superseded functionality.
+#'
+#' @param edition An edition. Possible values currently include `"2026"` only.
+#'   Can be `NULL` (default) to unset an edition.
+#'
+#' @returns For `set_ggplot2_edition()`, the previous `edition` value and for
+#'   `local_ggplot2_edition()`: `NULL`. Thesef unction are called for the side
+#'   effect of setting the edition though. For `with_ggplot2_edition`, the
+#'   result of the evaluation. For `get_ggplot2_edition()`, the currently
+#'   active edition.
+#'
+#' @export
+#' @keywords internal
+#'
+#' @examples
+#' # Setting an edition
+#' set_ggplot2_edition(2026)
+#'
+#' # Getting the edition
+#' get_ggplot2_edition()
+#'
+#'
+#' # Unsetting an edition
+#' set_ggplot2_edition()
+#'
+#' # Using withr-like scoping
+#' with_ggplot2_edition(2026, get_ggplot2_edition())
+set_ggplot2_edition <- function(edition = NULL) {
+  old <- ggplot_global$edition
+  ggplot_global$edition <- validate_edition(edition)
+  invisible(old)
+}
+
+#' @export
+#' @param env An `environment` to use for scoping.
+#' @rdname set_ggplot2_edition
+local_ggplot2_edition <- function(edition = NULL, env = parent.frame()) {
+  old <- set_ggplot2_edition(edition)
+  withr::defer(set_ggplot2_edition(old), envir = env)
+}
+
+#' @export
+#' @param code Code to execute in the temporary environment.
+#' @rdname set_ggplot2_edition
+with_ggplot2_edition <- function(edition = NULL, code) {
+  local_ggplot2_edition(edition)
+  code
+}
+
+#' @export
+#' @rdname set_ggplot2_edition
+get_ggplot2_edition <- function() {
+  ggplot_global$edition[[1]]
+}
+
+# Any new editions should be appended here and anchored to a version
+edition_versions <- c(
+  "2025" = "4.0.0",
+  "2026" = "4.1.0"
+)
+
+validate_edition <- function(edition, allow_null = TRUE, call = caller_env()) {
+  if (is.null(edition) && allow_null) {
+    return(NULL)
+  }
+  edition <- as.character(edition)
+  check_string(edition, allow_empty = FALSE, call = call)
+  arg_match0(edition, names(edition_versions), error_call = call)
+}
+
+edition_require <- function(edition = NULL, what, call = caller_env()) {
+  edition <- validate_edition(edition)
+  current_edition <- get_ggplot2_edition()
+  if (
+    !is.null(current_edition) &&
+    as.numeric(current_edition) >= as.numeric(edition)
+  ) {
+    return(invisible())
+  }
+  cli::cli_abort(
+    "{what} requires the {edition} edition of {.pkg ggplot2}.",
+    call = call
+  )
+}
+
+deprecate <- function(when, ..., id = NULL, always = FALSE, user_env = NULL,
+                      escalate = NULL) {
+
+  defunct <- "3.0.0"
+  full    <- "3.4.0"
+  soft    <- utils::packageVersion("ggplot2")
+
+  if (identical(escalate, "delay")) {
+    soft <- full
+    full <- defunct
+    defunct <- "0.0.0"
+  }
+
+  edition <- get_ggplot2_edition()
+  if (!is.null(edition) && edition %in% names(edition_versions)) {
+    soft <- full <- defunct <- edition_versions[[edition]]
+  }
+
+  version <- as.package_version(when)
+  if (version < defunct || identical(escalate, "abort")) {
+    lifecycle::deprecate_stop(when, ...)
+  }
+  user_env <- user_env %||% getOption("ggplot2_plot_env") %||% caller_env(2)
+  if (version <= full || identical(escalate, "warn")) {
+    lifecycle::deprecate_warn(when, ..., id = id, always = always, user_env = user_env)
+  } else if (version <= soft) {
+    lifecycle::deprecate_soft(when, ..., id = id, user_env = user_env)
+  }
+  invisible()
+}
+
+supersede <- function(edition, what, with = NULL, ..., env = caller_env()) {
+  current_edition <- get_ggplot2_edition()
+  if (
+    !is.null(current_edition) &&
+    current_edition %in% names(edition_versions) &&
+    as.numeric(current_edition) >= as.numeric(edition)
+  ) {
+    lifecycle::deprecate_stop(
+      when = paste0("edition ", edition),
+      what = what,
+      with = with,
+      env  = env
+    )
+  }
+  lifecycle::signal_stage(
+    stage = "superseded",
+    what  = what,
+    with  = with,
+    env   = env
+  )
+}

R/utilities.R

@@ -789,32 +789,6 @@ as_cli <- function(..., env = caller_env()) {
   cli::cli_fmt(cli::cli_text(..., .envir = env))
 }
 
-deprecate <- function(when, ..., id = NULL, always = FALSE, user_env = NULL,
-                      escalate = NULL) {
-
-  defunct <- "3.0.0"
-  full    <- "3.4.0"
-  soft    <- utils::packageVersion("ggplot2")
-
-  if (identical(escalate, "delay")) {
-    soft <- full
-    full <- defunct
-    defunct <- "0.0.0"
-  }
-
-  version <- as.package_version(when)
-  if (version < defunct || identical(escalate, "abort")) {
-    lifecycle::deprecate_stop(when, ...)
-  }
-  user_env <- user_env %||% getOption("ggplot2_plot_env") %||% caller_env(2)
-  if (version <= full || identical(escalate, "warn")) {
-    lifecycle::deprecate_warn(when, ..., id = id, always = always, user_env = user_env)
-  } else if (version <= soft) {
-    lifecycle::deprecate_soft(when, ..., id = id, user_env = user_env)
-  }
-  invisible()
-}
-
 as_unordered_factor <- function(x) {
   x <- as.factor(x)
   class(x) <- setdiff(class(x), "ordered")

tests/testthat/_snaps/utilities-lifecycle.md

@@ -0,0 +1,39 @@
+# editions can be set and unset
+
+    Code
+      set_ggplot2_edition("nonsense")
+    Condition
+      Error in `set_ggplot2_edition()`:
+      ! `edition` must be one of "2025" or "2026", not "nonsense".
+
+# edition deprecation works
+
+    `foo()` was deprecated in ggplot2 4.0.0.
+    i Please use `bar()` instead.
+
+---
+
+    Code
+      foo()
+    Condition
+      Error:
+      ! `foo()` was deprecated in ggplot2 4.0.0 and is now defunct.
+      i Please use `bar()` instead.
+
+# edition supersession works
+
+    Code
+      foo()
+    Condition
+      Error:
+      ! `foo()` was deprecated in ggplot2 edition 2025 and is now defunct.
+      i Please use `bar()` instead.
+
+# edition requirements work
+
+    Code
+      foo()
+    Condition
+      Error in `foo()`:
+      ! foo() requires the 2025 edition of ggplot2.
+