optimize one

shikokuchuo · Oct 4, 2024 · 7d426b7 · 7d426b7
1 parent 3a9410f
commit 7d426b7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/map.R b/R/map.R
@@ -229,7 +229,7 @@ mirai_map <- function(.x, .f, ..., .args = list(), .promise = NULL, .compute = "
 
   missing(..1) && return(collect_aio_(x))
 
-  dots <- lapply(substitute(alist(...))[-1L], get, pos = .getNamespace("mirai"))
+  dots <- lapply(substitute(alist(...))[-1L], eval, envir = environment(mirai_map))
   expr <- if (length(dots) > 1L) do.call(expression, dots) else dots[[1L]]
   xlen <- length(x)
   i <- 0L