获取分配给R中变量的函数名称

Question

我有一个与this one 类似的问题，但有一个更特殊的情况。

考虑以下示例代码：

fun1 <- mean
fun2 <- max
fun3 <- median

现在我想获取分配给变量的函数名称为charachters。

虽然我理解this is not possible in general，但上述情况似乎有些特殊：

l <- list(fun1 = fun1, fun2 = fun2, fun3 = fun3)
l

$fun1
function (x, ...)
UseMethod("mean")
<bytecode: 0x2793818>
<environment: namespace:base>
$fun2
function (..., na.rm = FALSE)  .Primitive("max")
$fun3
function (x, na.rm = FALSE)
UseMethod("median")
<bytecode: 0x28382c8>
<environment: namespace:stats>

所以print(funX) 的输出包含分配给funX 的函数的名称。

如何将此信息提取到character 向量中？

Answer 1

对 S3 泛型使用 findGeneric：

fun1 <- mean

utils:::findGeneric("fun1", parent.frame())
#[1] "mean"

对于原始函数，您可以对函数体进行解析：

fun2 <- max
is.primitive(fun2)
#[1] TRUE

body <- deparse(fun2)
m <- gregexpr('(?<=\\.Primitive\\(\\").*(?=\\")', body, perl = TRUE)
regmatches(body, m)[[1]]
#[1] "max"

Answer 2

到目前为止我能想到的最好的方法是解析 print 输出：

get_fun <- function(fun){
             lines <- capture.output(print(fun))
             pat <- "UseMethod|Primitive"
             index <- grep(pat, lines)
             line <- lines[index]
             pat <- paste0(".*(", pat, ")")
             chunk <- sub(pat, "", line)
             words <- strsplit(chunk, "\"")[[1]]
             return(words[2])
           }
sapply(l, get_fun)

    fun1     fun2     fun3
  "mean"    "max" "median"

但必须有更直接的方法。 毕竟不知何故，这些名字首先出现在print 输出中。

---

编辑： 基于Roland的answer，我能够将上述函数定义简化为：

get_fun <- function(fun){
             fun <- deparse(fun)
             chunk <- tail(fun, 1)
             words <- strsplit(chunk, "\"")[[1]]
             return(words[2])
           }

我仍然希望有一个更直接/更强大的解决方案（作为一个高阶函数，可能会返回 "fun" 用于无法确定/不存在真正底层函数的情况）。

Answer 3

for (myfun in c(max,mean,median))
  print(gsub('^.*"(.*)".*','\\1',tail(deparse(myfun),1)))