パッケージ/名前空間環境で同じ名前の関数の値/参照の等しいか？

Question

環境 "名前空間：統計" をつかむことができますし、 "パッケージ：統計"

ns = getNamespace("stats") 
pkg = as.environment("package:stats") 

は今の両方で機能 "SD" を取得することができます：

nsSd = get("sd" , envir = ns , inherits = FALSE) 
pkgSd = get("sd" , envir = pkg , inherits = FALSE) 

は、彼らは同じですか？彼らです！しかし、「同じ」とはどういう意味ですか？参照または価値の平等？

identical(nsSd , pkgSd) 

これはFALSE次返すので、参照平等を意味します

test1 = function() {} 
test2 = function() {} 
identical(test1 , test2) 

しかし、それは本当ならば、それは環境のフレームは、関数オブジェクトと一緒に関数ポインタを含むことができることを意味します。この問題をさらに複雑にすることは、関数がある環境で "生きている"ことができるという事実ですが、関数はその実行環境が別の環境であることを伝えることができます。部屋SoDAは答えを持っていないようです（その濃密な本、多分私はそれを逃した！）

私は決定的な答えをしたいと思います。次のうち正しいものはどれですか？または、ここに偽の三角法がありますか？

1. nsSdとpkgSdpkgSd内のオブジェクトは、その実行環境
2. nsSdとpkgSdとしてnsを有している（他の各 のコピーが）2つの異なるオブジェクトは、同じオブジェクトへのポインタされています。
3. nsSdはpkgSdへのポインタであり、そのようなものとして、彼らはこれは主にあなたの主な質問への答えではありません同じ

Answer 1

彼らは、同じオブジェクトへのポインタであります。このanswer to another questionを使用すると、2つのオブジェクトがメモリ内の同じ場所を参照しているかどうかを確認できます。

are_same <- function(x, y) 
{ 
    f <- function(x) capture.output(.Internal(inspect(x))) 
    all(f(x) == f(y)) 
} 

are_same(nsSd, pkgSd) #TRUE 
are_same(1:5, 1:5) #FALSE 

Answer 2

として扱われます。しかし、その問題については、私はDirkに同意します：ただ1つのsd()関数があり、状況に応じて異なるスコープパスでアクセスすることができます。たとえば、コマンドラインでsd(x)と入力すると、sdという名前に対応する関数が、package:stats環境のフレームのエントリを介して検出されます。 stats:::sd(x)と入力するか、パッケージの別の関数がsd(x)を呼び出すと、それはnamespace:stats環境での検索で検出されます。

---

代わりに、私はちょうどあなたの例では、本当にidenticalに評価されないオブジェクトの「参照の等価」については何も意味しないtest1()とtest2()を使用してポイントを作りたかったです。 str()によって明らかにされたものを2でidenticalではない本当の理由を確認するには、その構造を見て：

test1 <- function() {} 
test2 <- function() {} 
identical(test1 , test2) 
# [1] FALSE 

str(test1) 
# function() 
# - attr(*, "srcref")=Class 'srcref' atomic [1:8] 1 13 1 25 13 25 1 1 
# .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x01613f54> 

str(test2) 
# function() 
# - attr(*, "srcref")=Class 'srcref' atomic [1:8] 1 13 1 25 13 25 1 1 
# .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x01615730> 

あなたは上記のコードボックスの右側に上をスクロールした場合、あなたは2つの機能ということがわかりますその属性の1つ、つまりソースファイルに関連付けられた環境が異なります。 （私はその属性についてあまりよく分かりませんが、それはここではあまり関係ありません。ポイントは、彼らがidenticalではないということです！あなたが作成していますすべての機能をsourcefileの属性データを保持しないRを伝える場合）

は、identical(test1, test2)の「予想外の行動が消える：

options(keep.source=FALSE) 
test1 <- function() {} 
test2 <- function() {} 
identical(test1 , test2) 
# [1] TRUE