expression->quote

MichaelChirico · web-flow · commit 2b01ad3d4d6b · 2025-07-11T09:35:22.000-07:00
diff --git a/R/data.table.R b/R/data.table.R
@@ -106,7 +106,7 @@ replace_dot_alias = function(e) {
     "'____missing_datatable_variable____'",
     "'(?<obj_name>[^']+)'",
     # expression() to avoid "no visible binding for global variable" note from R CMD check
-    conditionMessage(tryCatch(eval(expression(`____missing_datatable_variable____`)), error=identity)),
+    conditionMessage(tryCatch(eval(quote(`____missing_datatable_variable____`)), error=identity)),
     fixed=TRUE
   )
   idx = regexpr(missing_obj_regex, err_str, perl=TRUE)

Original file line number	Diff line number	Diff line change
`@@ -106,7 +106,7 @@ replace_dot_alias = function(e) {`
`106`	`106`	`"'____missing_datatable_variable____'",`
`107`	`107`	`"'(?<obj_name>[^']+)'",`
`108`	`108`	`# expression() to avoid "no visible binding for global variable" note from R CMD check`
`109`		- conditionMessage(tryCatch(eval(expression(`____missing_datatable_variable____`)), error=identity)),
	`109`	+ conditionMessage(tryCatch(eval(quote(`____missing_datatable_variable____`)), error=identity)),
`110`	`110`	`fixed=TRUE`
`111`	`111`	`)`
`112`	`112`	`idx = regexpr(missing_obj_regex, err_str, perl=TRUE)`