Use minimal NSE in tool() (#777)

hadley · web-flow · commit 21b4a4d35dd3 · 2025-10-09T15:29:47.000-05:00
Fixes #687
diff --git a/R/tools-def.R b/R/tools-def.R
@@ -150,7 +150,7 @@ tool <- function(
     annotations <- .annotations
   }
 
-  fun_expr <- enexpr(fun)
+  fun_expr <- substitute(fun)
   check_function(fun)
   check_string(description)
   check_string(name, allow_null = TRUE)

Original file line number	Diff line number	Diff line change
`@@ -150,7 +150,7 @@ tool <- function(`
`150`	`150`	`annotations <- .annotations`
`151`	`151`	`}`
`152`	`152`
`153`		`- fun_expr <- enexpr(fun)`
	`153`	`+ fun_expr <- substitute(fun)`
`154`	`154`	`check_function(fun)`
`155`	`155`	`check_string(description)`
`156`	`156`	`check_string(name, allow_null = TRUE)`