only cast RHS formula to function

teunbrand · teunbrand · commit 90c6446a6a1b · 2025-03-28T10:02:12.000+01:00
diff --git a/R/scale-.R b/R/scale-.R
@@ -1454,5 +1454,5 @@ trans_support_nbreaks <- function(trans) {
 }
 
 allow_lambda <- function(x) {
-  if (is_formula(x)) as_function(x) else x
+  if (is_formula(x, lhs = FALSE)) as_function(x) else x
 }

Original file line number	Diff line number	Diff line change
`@@ -1454,5 +1454,5 @@ trans_support_nbreaks <- function(trans) {`
`1454`	`1454`	`}`
`1455`	`1455`
`1456`	`1456`	`allow_lambda <- function(x) {`
`1457`		`- if (is_formula(x)) as_function(x) else x`
	`1457`	`+ if (is_formula(x, lhs = FALSE)) as_function(x) else x`
`1458`	`1458`	`}`