also merge s3 elements

teunbrand · teunbrand · commit 4214d4127563 · 2025-05-29T13:02:51.000+02:00
diff --git a/R/theme.R b/R/theme.R
@@ -1031,6 +1031,7 @@ combine_elements <- function(e1, e2) {
 # For backward compatibility
 # TODO: in subsequent release cycle, start deprecation
 combine_s3_elements <- function(e1, e2) {
+  e1 <- merge_element(e1, e2)
   if (S7::S7_inherits(e2)) {
     e2 <- S7::props(e2)
   }

Original file line number	Diff line number	Diff line change
`@@ -1031,6 +1031,7 @@ combine_elements <- function(e1, e2) {`
`1031`	`1031`	`# For backward compatibility`
`1032`	`1032`	`# TODO: in subsequent release cycle, start deprecation`
`1033`	`1033`	`combine_s3_elements <- function(e1, e2) {`
	`1034`	`+ e1 <- merge_element(e1, e2)`
`1034`	`1035`	`if (S7::S7_inherits(e2)) {`
`1035`	`1036`	`e2 <- S7::props(e2)`
`1036`	`1037`	`}`