Checking multiple inheritance of S4 objects in Rcpp

Question

Suppose I have the following two classes in R:

setClass("Person", representation(name = "character", age = "numeric"))
setClass(&quo