r - 如何提取函数内设置的默认值？

Question

我创建了函数toy_fun ，并且我正在设置 c 的默认值函数内部:

toy_fun = function(a,b,c) {
  
  if(missing(c)) c = 1
  sum <- a + b + c
  sum
}

确实，如果我调用 toy_fun只有两个论点，我得到:

toy_fun(1,1)
#> [1] 3

现在假设我无法访问 toy_fun的脚本，但我仍然想知道，事实上， toy_fun 的参数是什么？如果有的话，它们的分配值和默认值是什么。
我尝试了以下方法，来自 post ，但它没有给我 c 的值:

library(rlang)

fun_call <- quo(toy_fun(1,1))

default_args <- fn_fmls(call_fn(fun_call))
str(default_args)
#> Dotted pair list of 3
#>  $ a: symbol 
#>  $ b: symbol 
#>  $ c: symbol

user_args <- call_args(call_standardise(fun_call))
str(user_args)
#> List of 2
#>  $ a: num 1
#>  $ b: num 1

calling_args <- purrr::list_modify(default_args, user_args)
str(calling_args)
#> Dotted pair list of 3
#>  $ a:List of 2
#>   ..$ a: num 1
#>   ..$ b: num 1
#>  $ b: symbol 
#>  $ c: symbol

问题
有没有办法知道 c 的值是多少？设置为？
创建于 2021-03-26 由 reprex package (v0.3.0)

Answer 1

我将做一个简化的假设，即您只想知道函数末尾的参数是什么。因此，如果 c在初始检查是否丢失后再次修改，这种方法也将捕获该更改。

myEnv <- new.env()

trace(
  toy_fun, 
  print = FALSE,
  exit = quote(
    assign(
      "fxArgs", 
      mget(names(formals(toy_fun))),
      envir = myEnv
    )
  )
)

trace修改函数以运行任意代码。在这种情况下，它将是捕获参数值并将它们保存到稍后可以通过 myEnv$fxArgs访问它们的环境的代码。 .
从内向外工作， names(formals(toy_fun))创建参数名称的字符向量所以 mget可以从本地函数执行环境中检索它们。这些值被分配给预定义的环境，以利用环境的传递引用特性。 trace修改 toy_fun在退出时执行此代码。
如果您不想稍后更改 c ，你必须要么知道你的特定功能，要么找到一种方法来找到第一次分配它的行。知道该行后，您可以在该行之后添加跟踪，而不是在退出时添加。