Получение списка подклассов ссылочного класса

Я создал эталонный класс AbstractFoo и несколько подклассов, теперь хочу получить все имена подклассов (AFoo, BFoo, CFoo). Кажется, это возможно, используя слот subclasses класса S4, но я хотел бы получить то же самое для эталонного класса.

Например, мой код может быть:

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

Поэтому я бы хотел что-то, что возвращает c("AFoo", "BFoo", "CFoo").