Finden Sie die Quelldatei mit R Funktionsdefinition

Question

ich aus einem Python-Hintergrund kommen und ich versuche, mit R aufstehen zu beschleunigen, so tragen Sie bitte mit mir

ich eine R-Datei - util.R mit den folgenden Zeilen:

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

ich es Quelle wie folgt:

source('path/util.R')

ich habe jetzt zwei Funktionsobjekte und wollen eine functio schreiben n wie folgt:

getFilePath (util.add)

Das würde mir dieses Ergebnis

[1] "path/util.R"

Answer 1

Graben in das srcref Attribut eines der geladenen Funktionen erscheint Arbeit, wenn Sie tief genug gehen ...

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"