keep theme class

teunbrand · teunbrand · commit 3755e2de04f5 · 2025-05-26T09:01:59.000+02:00
diff --git a/R/theme.R b/R/theme.R
@@ -497,7 +497,9 @@ theme <- function(...,
     })
   }
 
-  class_theme(elements, complete = complete, validate = validate)
+  t <- class_theme(elements, complete = complete, validate = validate)
+  class(t) <- union("theme", class(t))
+  t
 }
 
 fix_theme_deprecations <- function(elements) {

Original file line number	Diff line number	Diff line change
`@@ -497,7 +497,9 @@ theme <- function(...,`
`497`	`497`	`})`
`498`	`498`	`}`
`499`	`499`
`500`		`- class_theme(elements, complete = complete, validate = validate)`
	`500`	`+ t <- class_theme(elements, complete = complete, validate = validate)`
	`501`	`+ class(t) <- union("theme", class(t))`
	`502`	`+ t`
`501`	`503`	`}`
`502`	`504`
`503`	`505`	`fix_theme_deprecations <- function(elements) {`