fix corner case where all annotation parameters have length 1

Author: clauswilke

R/annotation.r

@@ -47,6 +47,7 @@ annotate <- function(geom, x = NULL, y = NULL, xmin = NULL, xmax = NULL,
   # Check that all aesthetic have compatible lengths
   lengths <- vapply(aesthetics, length, integer(1))
   n <- unique(setdiff(lengths, 1L))
+  if (length(n) == 0L) n <- 1L # if all lengths are equal to 1L then above line fails, this fixes that
   unequal <- length(n) > 1L
   if (unequal) {
     bad <- lengths != 1L