5

是否有一种快速而肮脏的方法来测试实例是否来自引用类?

标准的 R 对象测试产生以下结果 - 但似乎没有任何东西专门标记参考类。

classy <- setRefClass('classy',
    fields = list(
        count = 'numeric'
    ),
    methods = list(
        initialize = function( data=NULL ) {
            .self$data <<- data
        }
    )
)

instance <- classy$new() # instantiation

isS4(instance) # TRUE
mode(instance) # "S4"
typeof(instance) # "S4"
class(instance) # [1] "classy" attr(,"package") [1] ".GlobalEnv"
dput(instance) # new("classy", .xData = <environment>)
str(instance) # 
# Reference class 'classy' [package ".GlobalEnv"] with 1 fields
#  $ count: num(0) 
#  and 13 methods, of which 1 are possibly relevant:
#    initialize
4

1 回答 1

6

试试这个:

 inherits(instance, "envRefClass")
# should return [1] TRUE

这可以在 的“继承”部分找到help(ReferenceClasses)。我怀疑约翰·钱伯斯可能会反对称其为“肮脏”。

Apropos Hadley 的评论is被记录为与行为基本相同,inherits但具有识别条件继承的附加能力:

is(instance, "envRefClass")
#TRUE
于 2012-11-08T21:53:22.440 回答