don't cast bquote() to lambda functions

teunbrand · teunbrand · commit 9eb931039e02 · 2025-05-19T11:02:44.000+02:00
diff --git a/R/scale-.R b/R/scale-.R
@@ -1454,5 +1454,6 @@ trans_support_nbreaks <- function(trans) {
 }
 
 allow_lambda <- function(x) {
-  if (is_formula(x, lhs = FALSE)) as_function(x) else x
+  # we check the 'call' class to prevent interpreting `bquote()` calls as a function
+  if (is_formula(x, lhs = FALSE) && !inherits(x, "call")) as_function(x) else x
 }

Original file line number	Diff line number	Diff line change
`@@ -1454,5 +1454,6 @@ trans_support_nbreaks <- function(trans) {`
`1454`	`1454`	`}`
`1455`	`1455`
`1456`	`1456`	`allow_lambda <- function(x) {`
`1457`		`- if (is_formula(x, lhs = FALSE)) as_function(x) else x`
	`1457`	+ # we check the 'call' class to prevent interpreting `bquote()` calls as a function
	`1458`	`+ if (is_formula(x, lhs = FALSE) && !inherits(x, "call")) as_function(x) else x`
`1458`	`1459`	`}`