如何获取函数内使用的内置函数的列表

假设我有一个名为Fun1其中我针对不同的不同流程使用了许多不同的 R 内置函数。那么如何获取该函数内使用的内置函数的列表Fun1

  Fun1 <- function(x,y){
  sum(x,y)
  mean(x,y)
  c(x,y)
  print(x)
  print(y)
  }

所以我的输出应该像字符列表，即sum, mean, c, print。因为这些是我在函数内部使用过的内置函数Fun1.

我尝试过使用grep功能

 grep("\\(",body(Fun1),value=TRUE)
 # [1] "sum(x, y)"  "mean(x, y)" "c(x, y)"    "print(x)"   "print(y)" 

看起来不错，但争论不应该出现，即x and y。只是函数体内使用的函数名称列表Fun1 here.

所以我的总体目标是打印unique list of in-built functions or any create functions inside a particular function, here Fun1.

对此的任何帮助都将受到高度赞赏。谢谢。

你可以使用all.vars()获取出现在主体内的所有变量名（包括函数）Fun1，然后将其与一些准备好的函数列表进行比较。您提到了内置函数，因此我将其与基本包对象名称进行比较。

## full list of variable names inside the function body
(vars <- all.vars(body(Fun1)[-1], functions = TRUE))
# [1] "sum"   "x"     "y"     "mean"  "c"     "print"

## compare it with the base package object names
intersect(vars, ls(baseenv()))
# [1] "sum"   "mean"  "c"     "print"

我删除了函数体的第一个元素，因为大概你不关心{，它将与基本包列表进行匹配。

另一种可能性，尽管不太可靠，是比较以下形式的论证：Fun1函数中的所有变量名称。就像我说的，虽然可能不太可靠，因为如果你在函数内进行赋值，你最终会得到不正确的结果。

setdiff(vars, names(formals(Fun1)))
# [1] "sum"   "mean"  "c"     "print"

不过这些很有趣，你可以摆弄它们。