r - 如何在 R 中打印函数名称及其底层源代码

Question

假设我有一个定义如下的函数:

myFun <- function(x, y) {
  return(2*x + y)
}

只需在控制台中键入不带括号的 myFun 即可打印函数的定义:

> myFun
function(x, y) {
  return(2*x + y)
}

如何返回(或打印)名称和函数？也就是说，我希望控制台(打印)输出为:

myFun <- function(x, y) {
  return(2*x + y)
}

如果无法打印定义该函数的代码，是否可以通过 cat 或 print 的方式在前面添加正常结果myFun 带有文本“myFun <- "?

Answer 1

这可能不是很稳健，但这是一个开始:

myFun <- function(x, y) {
  return(2*x + y)
}

myfunprint = function(fun) {
  cl = match.call()
  cat(paste(as.character(cl$fun), "<- "))
  print(fun)
  invisible()
}

myfunprint(myFun)
# myFun <- function(x, y) {
#   return(2*x + y)
# }