Add evaluating environment to tidy eval call. Closes #2835 (#2836)

* Add evaluating environment to tidy eval call. closes #2835

* modify unit test to use local variable inside function

Author: clauswilke

R/axis-secondary.R

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

tests/testthat/test-sec-axis.R

@@ -93,15 +93,19 @@ test_that("sec axis works with skewed transform", {
 })
 
 test_that("sec axis works with tidy eval", {
+  # decoy, not used
+  a <- 5
+
   f <- function(df, .x, .y, .z) {
     x <- enquo(.x)
     y <- enquo(.y)
     z <- enquo(.z)
+    a <- 10 # scaling of secondary axis
 
     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))
+      scale_y_continuous(sec.axis = sec_axis(~. / a))
 
     g
   }