在 R 中，如何检查两个变量是否引用同一个 R6 对象？

Question

identical() 函数似乎给出了正确答案，但文档没有明确讨论对象引用。文档中最接近的注释是：

检查两个大而复杂的对象的相等性可能需要更长的时间 如果对象相同或几乎相同，但完全代表 独立副本。

使用 distinct() 的一些例子：

QuickClass <- R6::R6Class("QuickClass",
  public = list(
   initialize = function(x) {
     private$px <- x
   }
   ),
   active = list(
     x = function(px) {
       if(missing(px)) return(private$px)
       else private$px <- px 
     }
   ),
   private = list(
     px = 0 
   )
)

> a <- QuickClass$new(1)
> identical(a, a)
[1] TRUE
> b <- a
> identical(a, b)
[1] TRUE
> c <- QuickClass$new(2)
> identical(a, c)
[1] FALSE
> d <- QuickClass$new(1)
> identical(a, d)
[1] FALSE

因此，相同的外观可以满足需要，我只是想检查是否有更好的方法，例如仅比较对象引用的特定函数，因此可能更快，更直接适用。 same() 看起来可以进行逐个字段的比较。

对比条款：这个问题类似于In R, how can I check if two variable names reference the same underlying object? - 但是这个问题已经很老了（R6 之前的课程），并且答案讨论了使用我宁愿避免的低级技术。

Answer 1

您可以为每个新对象分配一个随机的id 并比较ids。

library(R6)

MyClass <- R6Class(
  "MyClass",
  public = list(
    id = NULL,
    initialize = function(){
      self$id <- as.character(sample(1:10^6, 1))
    }
  )
)

MyClass$equal <- function(object1, object2){
  object1$id == object2$id
}

A <- MyClass$new()
B <- MyClass$new()
MyClass$equal(A, A)
# TRUE
MyClass$equal(A, B)
# FALSE