fix title_spec() for vectorized input

Author: clauswilke

R/margins.R

@@ -68,6 +68,13 @@ title_spec <- function(label, x, y, hjust, vjust, angle, gp = gpar(),
   # descenders or not. The same happens automatically with ascenders already.
   descent <- font_descent(gp$fontfamily, gp$fontface, gp$fontsize, gp$cex)
 
+  # This title_spec() function assumes that input is not vectorized, but sometimes
+  # that's not the case, so we need to deal with this somehow. Taking the max of all
+  # descent values seems the best option.
+  if (length(descent) > 1) {
+    descent <- max(descent)
+  }
+
   # Use trigonometry to calculate grobheight and width for rotated grobs. This is only
   # exactly correct when vjust = 1. We need to take the absolute value so we don't make
   # the grob smaller when it's flipped over.