Getting a list of subclasses of a reference class

Question

I created an AbstractFoo reference class and several subclasses, now I want to get all the names of the subclasses (AFoo, BFoo, CFoo). It seems this is possible using the subclasses slot of an S4 class, but I'd like to get the same sort of thing for a reference class.

For instance my code might be:

AbstractFoo <- setRefClass("AbstractFoo")
AFoo <- setRefClass("AFoo", contains = c("AbstractFoo"))
BFoo <- setRefClass("BFoo", contains = c("AbstractFoo"))
CFoo <- setRefClass("CFoo", contains = c("AbstractFoo"))

So I would want something that returns c("AFoo", "BFoo", "CFoo").

Can you give an example of `AbstractFoo` – d.b Oct 30 '19 at 17:02 — d.b, Oct 30 '19 at 17:02
@d.b I added an example in the question. – bjb568 Oct 31 '19 at 22:14 — bjb568, Oct 31 '19 at 22:14

d.b · Accepted Answer · 2019-10-31T23:14:19.510

1

foo = function(nm){
    objs = ls(envir = .GlobalEnv)
    tmp = setNames(lapply(objs, function(objName){
        thisObj = get(objName)
        if (class(thisObj) == "refObjectGenerator" & objName != nm){
            is(thisObj(), nm)
        }
    }), objs)
    tmp = unlist(tmp)
    names(tmp)[tmp]
}

foo("AbstractFoo")
#[1] "AFoo" "BFoo" "CFoo"

edited Oct 31 '19 at 23:14

answered Oct 31 '19 at 22:59

d.b

32,245
6
36
77

Getting a list of subclasses of a reference class

1 Answers1