From a0f6372b61af82a9273e7852e891f186b28ed59e Mon Sep 17 00:00:00 2001 From: Dewey Dunnington Date: Mon, 24 Jun 2019 08:16:29 -0400 Subject: [PATCH] ensure that draw_axis() works with element_text() subclasses --- R/guides-axis.r | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/R/guides-axis.r b/R/guides-axis.r index 3b13fcea06..d7bc5449ed 100644 --- a/R/guides-axis.r +++ b/R/guides-axis.r @@ -35,10 +35,11 @@ draw_axis <- function(break_positions, break_labels, axis_position, theme, # override label element parameters for rotation if (inherits(label_element, "element_text")) { - label_element <- merge_element( - axis_label_element_overrides(axis_position, angle), - label_element - ) + label_overrides <- axis_label_element_overrides(axis_position, angle) + # label_overrides is always an element_text(), but in order for the merge to + # keep the new class, the override must also have the new class + class(label_overrides) <- class(label_element) + label_element <- merge_element(label_overrides, label_element) } # conditionally set parameters that depend on axis orientation