how to get list of class names from reference class in R

Question

I have this code:

private$svg <- if(is(private$idaPlotObj, "DivosGridBmiPlot")){
  ...
} else {
  ...
}

in my code and I\'m tryi