r - 查找包含 R 函数定义的源文件

Question

我来自 python 背景，正在努力跟上 R 的速度，所以请耐心等待

我有一个 R 文件 - util.R有以下几行:

util.add <- function(a,b) a + b
util.sub <- function(a,b) { a - b }

我的来源如下:
source('path/util.R')
我现在有两个函数对象，想写一个函数如下:

getFilePath(util.add)

这会给我这个结果
[1] "path/util.R"

Answer 1

深挖srcref加载的功能之一的属性似乎可以工作，如果你足够深入......

source("tmp/tmpsrc.R")
str(util.add)
## function (a, b)  
##  - attr(*, "srcref")=Class 'srcref'  atomic [1:8] 1 13 1 31 13 31 1 1
##   .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x8fffb18> 
srcfile <- attr(attr(util.add,"srcref"),"srcfile")
ls(srcfile)
## [1] "Enc"           "filename"      "fixedNewlines" "isFile"       
## [5] "lines"         "parseData"     "timestamp"     "wd"    
srcfile$filename
## [1] "tmp/tmpsrc.R"