Make sure the length of x_aes and y_aes match

Author: thomasp85

R/ggplot-global.R

@@ -46,8 +46,10 @@ ggplot_global$all_aesthetics <- .all_aesthetics
 
 ggplot_global$base_to_ggplot <- .base_to_ggplot
 
+# These two vectors must match in length and position of symmetrical aesthetics
+# xintercept2 is a filler to match to the intercept aesthetic in geom_abline
 ggplot_global$x_aes <- c("x", "xmin", "xmax", "xend", "xintercept",
-  "xmin_final", "xmax_final", "xlower", "xmiddle", "xupper", "x0")
+  "xmin_final", "xmax_final", "xlower", "xmiddle", "xupper", "x0", "xintercept2")
 
-ggplot_global$y_aes <- c("y", "ymin", "ymax", "yend", "yintercept", "ymin_final",
-  "ymax_final", "lower", "middle", "upper", "y0", "intercept")
+ggplot_global$y_aes <- c("y", "ymin", "ymax", "yend", "yintercept",
+  "ymin_final", "ymax_final", "lower", "middle", "upper", "y0", "intercept")

tests/testthat/test-utilities.r

@@ -87,3 +87,7 @@ test_that("parse_safe works with multi expressions", {
     expression(NA, 1, 2, a)
   )
 })
+
+test_that("x and y aesthetics have the same length", {
+  expect_equal(length(ggplot_global$x_aes), length(ggplot_global$y_aes))
+})