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

你可以通过以下几种方式实现需求：

方法1：直接拼接输出 #

先用cat打印函数名和<-，再打印函数本身：

cat("myFun <- ")
print(myFun)

输出效果：

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

方法2：用deparse精准构造完整定义 #

deparse()可以把函数对象转换成字符向量，再拼接成完整的定义语句：

# 把函数转为字符并拼接成完整定义
fun_code <- paste0("myFun <- ", paste(deparse(myFun), collapse = "\n"))
# 打印结果
cat(fun_code, "\n")

这会完全输出你想要的格式：

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

方法3：通用函数（适配任意函数） #

如果需要批量处理多个函数，可以写一个通用函数，传入函数名即可输出带名称的定义：

print_fun_with_name <- function(fun_name) {
  # 获取全局环境中的函数对象
  target_fun <- get(fun_name, envir = .GlobalEnv)
  # 构造完整定义语句
  full_code <- paste0(fun_name, " <- ", paste(deparse(target_fun), collapse = "\n"))
  # 打印
  cat(full_code, "\n")
}

# 使用示例
print_fun_with_name("myFun")

内容的提问来源于stack exchange，提问作者JasonAizkalns