fix: avoid rlang formatting crash in callr subprocess (#723)

randy3k · randy3k · commit fa9ca2f11bd3 · 2026-03-26T22:30:44.000-07:00
diff --git a/R/task.R b/R/task.R
@@ -261,9 +261,10 @@ TaskManager <- R6::R6Class("TaskManager",
 )
 
 package_call <- function(target) {
-    func <- call(":::", as.name("languageserver"), substitute(target))
-    target <- eval(substitute(function(...) func(...), list(func = func)))
-    target
+    target_name <- as.character(substitute(target))
+    eval(bquote(
+        function(...) get(.(target_name), envir = asNamespace("languageserver"))(...)
+    ), envir = baseenv())
 }
 
 create_task <- function(target, args, callback = NULL, error = NULL, delay = 0) {

Original file line number	Diff line number	Diff line change
`@@ -261,9 +261,10 @@ TaskManager <- R6::R6Class("TaskManager",`
`261`	`261`	`)`
`262`	`262`
`263`	`263`	`package_call <- function(target) {`
`264`		`- func <- call(":::", as.name("languageserver"), substitute(target))`
`265`		`- target <- eval(substitute(function(...) func(...), list(func = func)))`
`266`		`- target`
	`264`	`+ target_name <- as.character(substitute(target))`
	`265`	`+ eval(bquote(`
	`266`	`+ function(...) get(.(target_name), envir = asNamespace("languageserver"))(...)`
	`267`	`+ ), envir = baseenv())`
`267`	`268`	`}`
`268`	`269`
`269`	`270`	`create_task <- function(target, args, callback = NULL, error = NULL, delay = 0) {`