R 中的跟踪函数

我想跟踪一个函数，以便它在调用时打印它的所有参数 当它返回结果时，它会打印返回值和参数。 函数跟踪允许定义在进入和退出函数调用时要执行的操作。 是否有一个函数返回函数内的参数列表，是否有一种方法无需执行多个分支中的每个分支即可获取结果值 每个分支在哪里退出函数？

在下面的示例中，跟踪应打印两个输入参数的列表 （或作为文本本身的函数调用）在调用时以及函数在任一分支中退出时的返回值。

myfun <- function(a,b){
  if (a==1) return(b+1)
  if (a==2) return(b*10)
  return(b)
}

您正在寻找的功能match.call() and returnValue():

myfun <- function(a,b){
    if (a==1) return(b+1)
    if (a==2) return(b*10)
    return(b)
}

trace("myfun", tracer = substitute(print(as.list(match.call()))),
      exit = substitute(print(returnValue())))
#> [1] "myfun"

myfun(1, 2)
#> Tracing myfun(1, 2) on entry 
#> [[1]]
#> myfun
#> 
#> $a
#> [1] 1
#> 
#> $b
#> [1] 2
#> 
#> Tracing myfun(1, 2) on exit 
#> [1] 3
#> [1] 3
myfun(2, 2)
#> Tracing myfun(2, 2) on entry 
#> [[1]]
#> myfun
#> 
#> $a
#> [1] 2
#> 
#> $b
#> [1] 2
#> 
#> Tracing myfun(2, 2) on exit 
#> [1] 20
#> [1] 20
myfun(3, 2)
#> Tracing myfun(3, 2) on entry 
#> [[1]]
#> myfun
#> 
#> $a
#> [1] 3
#> 
#> $b
#> [1] 2
#> 
#> Tracing myfun(3, 2) on exit 
#> [1] 2
#> [1] 2

^{Created on 2018-10-07 by the reprex package https://reprex.tidyverse.org (v0.2.1)}

As 穆迪_弹涂鱼 https://stackoverflow.com/users/2270475/moody-mudskipper在评论中提到，您还可以使用quote()而不是substitute():

myfun <- function(a,b){
    if (a==1) return(b+1)
    if (a==2) return(b*10)
    return(b)
}

trace("myfun", tracer = quote(print(as.list(match.call()))),
      exit = quote(print(returnValue())))
#> [1] "myfun"

myfun(1, 2)
#> Tracing myfun(1, 2) on entry 
#> [[1]]
#> myfun
#> 
#> $a
#> [1] 1
#> 
#> $b
#> [1] 2
#> 
#> Tracing myfun(1, 2) on exit 
#> [1] 3
#> [1] 3
myfun(2, 2)
#> Tracing myfun(2, 2) on entry 
#> [[1]]
#> myfun
#> 
#> $a
#> [1] 2
#> 
#> $b
#> [1] 2
#> 
#> Tracing myfun(2, 2) on exit 
#> [1] 20
#> [1] 20
myfun(3, 2)
#> Tracing myfun(3, 2) on entry 
#> [[1]]
#> myfun
#> 
#> $a
#> [1] 3
#> 
#> $b
#> [1] 2
#> 
#> Tracing myfun(3, 2) on exit 
#> [1] 2
#> [1] 2

^{Created on 2018-10-07 by the reprex package https://reprex.tidyverse.org (v0.2.1)}

有关两者之间差异的说明，请参见这个堆栈溢出问题 https://stackoverflow.com/questions/46834655/whats-the-difference-between-substitute-and-quote-in-r.