Fix sec.axis() when used with tidyeval (#2797)

Fixes #2788

Author: Dana Paige Seidel

NEWS.md

@@ -1,5 +1,8 @@
 # ggplot2 3.0.0.9000
 
+*   `sec_axis()` now works as expected when used in combination with tidy eval
+    (@dpseidel, #2788).
+
 *   `stat_contour()`, `stat_density2d()`, `stat_bin2d()`,  `stat_binhex()`
     now calculate normalized statistics including `nlevel`, `ndensity`, and
     `ncount`. Also, `stat_density()` now includes the calculated statistic 

R/axis-secondary.R

@@ -106,7 +106,7 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
 
   transform_range = function(self, range) {
     range <- structure(data.frame(range), names = '.')
-    f_eval(self$trans, range)
+    rlang::eval_tidy(rlang::f_rhs(self$trans), data = range)
   },
 
 

tests/testthat/test-sec-axis.R

@@ -46,3 +46,27 @@ test_that("sec axis works with skewed transform", {
                                              breaks = derive()))
   )
 })
+
+test_that("sec axis works with tidy eval", {
+  f <- function(df, .x, .y, .z) {
+    x <- enquo(.x)
+    y <- enquo(.y)
+    z <- enquo(.z)
+
+    g <- ggplot(df, aes(x = !!x, y = !!y)) +
+      geom_bar(stat = "identity") +
+      geom_point(aes(y = !!z)) +
+      scale_y_continuous(sec.axis = sec_axis(~. / 10))
+
+    g
+  }
+
+  t <- tibble(x = letters, y = seq(10, 260, 10), z = 1:26)
+
+  p <- f(t, x, y, z)
+
+  scale <- layer_scales(p)$y
+  breaks <- scale$break_info()
+
+  expect_equal(breaks$major_source / 10, breaks$sec.major_source)
+})