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')

を私は今、2つの関数オブジェクトを持っているとfunctioを書きたいですnは次のように：

getFilePath（util.add）

が私にこの結果にロードされた関数のいずれかが表示されるのsrcref属性を掘り下げる

[1] "path/util.R"

Answer 1

を与えるだろうあなたが十分に深く行くならば、働きます...

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"