How to get the name of a reference class?

Question

For instance, is there some function getName that allows me to do:

> TestA <- setRefClass("TestA")
> getName(TestA())
[1] "TestA"

Answer 1

Maybe simply check its class:

class(TestA())