labs(): Added gg class (#6045)

phispu · web-flow · commit 308d4c32394b · 2024-08-15T15:12:51.000-07:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,6 @@
 # ggplot2 (development version)
 
+* Added `gg` class to `labs()` (@phispu, #5553).
 * Missing values from discrete palettes are no longer translated 
   (@teunbrand, #5929).
 * Fixed bug in `facet_grid(margins = TRUE)` when using expresssions 
diff --git a/R/labels.R b/R/labels.R
@@ -139,7 +139,7 @@ labs <- function(..., title = waiver(), subtitle = waiver(), caption = waiver(),
   args <- args[!duplicated(names(args))]
   args <- rename_aes(args)
 
-  structure(args, class = "labels")
+  structure(args, class = c("labels", "gg"))
 }
 
 #' @rdname labs

Original file line number	Diff line number	Diff line change
`@@ -139,7 +139,7 @@ labs <- function(..., title = waiver(), subtitle = waiver(), caption = waiver(),`
`139`	`139`	`args <- args[!duplicated(names(args))]`
`140`	`140`	`args <- rename_aes(args)`
`141`	`141`
`142`		`- structure(args, class = "labels")`
	`142`	`+ structure(args, class = c("labels", "gg"))`
`143`	`143`	`}`
`144`	`144`
`145`	`145`	`#' @rdname labs`