r - 获取偏函数的参数值

Question

给定以下玩具示例：

library(purrr)
foo = function(x, a) x + a
foop = partial(foo, a = runif(1))
foop

<partialised>
function (...) 
foo(a = runif(1), ...)

我想知道a仅使用该foop对象的值是什么。

我发现的一种方法是：

e = as.list(environment(foop))
rlang::eval_tidy(e$args$a)

[1] 0.05872499

但我想知道是否有更优雅的方式。

标签： rpurrrrlang