Tìm các tập tin nguồn chứa chức năng R nét

Question

Tôi đến từ một nền python và đang cố gắng để có được tốc độ với R, vì vậy hãy chịu với tôi

Tôi có một file R - util.R với những dòng sau:

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

tôi nguồn nó như sau:

source('path/util.R')

bây giờ tôi có hai đối tượng chức năng và muốn viết một functio n như sau:

getFilePath (util.add)

rằng sẽ cho tôi kết quả này

[1] "path/util.R"

Answer 1

Đào vào srcref thuộc tính của một trong những chức năng nạp dường như công việc, nếu bạn đi đủ sâu ...

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"