R对象身份

Question

有没有办法在 R 语言中测试两个对象是否相同？

为清楚起见：我的意思不是在 identical 函数的意义上相同， 它根据某些属性（如数值或逻辑值等）比较对象。

我对对象身份非常感兴趣，例如可以使用 Python 语言中的is 运算符对其进行测试。

Answer 1

您可以使用pryr 包。

例如返回mtcars对象的内存位置：

pryr::address(mtcars)

然后，对于变量a 和b，您可以检查：

address(a) == address(b)

Answer 2

更新：address(x)（不使用.Internal(inspect(x))）的更强大和更快的实现已添加到data.table v1.8.9。来自NEWS：

新函数 address() 返回其参数在 RAM 中的地址。有时在确定值是否已被 R 以编程方式复制时很有用。

---

可能有一种更简洁的方法，但这似乎可行。

address = function(x) substring(capture.output(.Internal(inspect(x)))[1],2,17)
x = 1
y = 1
z = x
identical(x,y)
# [1] TRUE
identical(x,z)
# [1] TRUE
address(x)==address(y)
# [1] FALSE
address(x)==address(z)
# [1] TRUE

您可以通过将 17 更改为 9 来修改它以在 32 位上运行。