Add back deleted functions

thomasp85 · thomasp85 · commit 4ed6abe8b098 · 2025-04-08T08:30:12.000+02:00
diff --git a/R/layer.R b/R/layer.R
@@ -465,6 +465,7 @@ Layer <- ggproto("Layer", NULL,
 #' @export
 #' @rdname is_tests
 is_layer <- function(x) inherits(x, "Layer")
+is.layer <- function(x) lifecycle::deprecate_stop("3.5.2", "is.layer()", "is_layer()")
 
 check_subclass <- function(x, subclass,
                            argname = to_lower_ascii(subclass),
diff --git a/R/margins.R b/R/margins.R
@@ -14,6 +14,7 @@ margin <- function(t = 0, r = 0, b = 0, l = 0, unit = "pt") {
 is_margin <- function(x) {
   inherits(x, "margin")
 }
+is.margin <- function(x) lifecycle::deprecate_stop("3.5.2", "is.margin()", "is_margin()")
 
 #' Create a text grob with the proper location and margins
 #'

Original file line number	Diff line number	Diff line change
`@@ -14,6 +14,7 @@ margin <- function(t = 0, r = 0, b = 0, l = 0, unit = "pt") {`
`14`	`14`	`is_margin <- function(x) {`
`15`	`15`	`inherits(x, "margin")`
`16`	`16`	`}`
	`17`	`+is.margin <- function(x) lifecycle::deprecate_stop("3.5.2", "is.margin()", "is_margin()")`
`17`	`18`
`18`	`19`	`#' Create a text grob with the proper location and margins`
`19`	`20`	`#'`