From jmc at r-project.org  Mon Jun  6 23:38:02 2011
From: jmc at r-project.org (John Chambers)
Date: Mon, 06 Jun 2011 14:38:02 -0700
Subject: [Rd] Reference Classes: shortcut like 'isS4' for Ref Classes?
In-Reply-To: <4DED04F1.9040200@googlemail.com>
References: <4DED04F1.9040200@googlemail.com>
Message-ID: <4DED48BA.9050707@r-project.org>

As it says on the help page ?ReferenceClasses:

All reference classes inherit from the class "envRefClass"

So,
   is(x, "envRefClass")

And, less well documented but less typing:

   is(x, "refClass")
also works.

On 6/6/11 9:48 AM, Janko Thyson wrote:
> Dear list,
>
> is there a shortcut-function to check whether a class is a Reference
> Class or not? There's something like this for S4 classes
> ('isS4(object)'), but I couldn't find anything regarding Ref Classes.
>
> Currently, I'm doing it this way, which is a bit clumsy:
>
> A <- setRefClass("A", fields=list(X="numeric"))
> a <- A$new()
>
> isRefClass <- function(object, ...){
> return(getClass(class(object))@class == "refClassRepresentation")
> # getRefClass(class(object))@class == "refObjectGenerator"
> }
>
> isRefClass(a)
> [1] TRUE
>
> Regards,
> Janko
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>



[Rd] Reference Classes: shortcut like 'isS4' for Ref Classes?
John Chambers