S4 继承

S3 系统是宽泛且灵活的，同类的 S3 对象也可能有不同的成员。但是，对于 S4 系统，
就不会发生，也就是说，当我们创建一个属于某类的 S4 对象实例时，不能任意添加不在类
表示中的字段。
举个例子，在创建一个新的 Product 类的对象实例时，我们不能添加 volume 字段：
bottle <- new("Product", name = "Bottle",
price = 3, inventory = 100L, volume = 15)
## Error in initialize(value, ...): invalid name for slot of class "Product":
volume
相反，添加只能通过合适的继承来完成。我们需要创建一个新类，它包含（或继承自）
原始类。在这个例子中，我们定义一个 Container 类，它继承 Product 类，而且有一个
新的名为 volume 的数值字段：
setClass("Container",
representation(volume = "numeric"),
contains = "Product")
因为 Container 类继承 Product 类，所以任何 Container 类的对象实例都有
Product 类的所有字段，可以使用 getSlots( )进行查看：
getSlots("Container")
## volume name price inventory
## "numeric" "character" "numeric" "integer"
现在，我们创建一个含有 volume 字段的 Container 类对象实例：
bottle <- new("Container", name ="Bottle",
price = 3, inventory = 100L, volume = 15)
要注意，在创建 Container 类的对象实例时，Product 类的验证函数仍起作用：
bottle <- new("Container", name ="Bottle",
price = 3, inventory = -10L, volume = 15)
## Error in validObject(.Object): invalid class "Container" object: inventory
must be non-negative
因此，执行检查可以确保 Product 类字段的有效性，但是检查对 Container 类独有
的字段不起作用：
bottle <-new("Container", name = "Bottle",
price = 3, inventory = 100L, volume = -2)
我们为 Product 类定义了验证函数，同样，也可以为 Container 类定义一个验证函数：
validate_container <- function(object) {
errors <- c(
if (length(object@volume) != 1)
"Length of volume must be 1",
if (object@volume <= 0)
"volume must be positive"
)
if (length(errors) == 0) TRUE else errors
}
这样，我们就可以使用这个验证函数重新定义 Container 类：
setClass("Container",
representation(volume = "numeric"),
contains ="Product",
validity = validate_container)
注意到，不需要在validate_container( )中调用validate_product( )，因为两
个验证函数会被依次调用来确保所有位于继承链上的类都被（自己的验证函数）适当地检查了。
当然，也可以在验证函数中添加一些文本打印代码，以此确保在创建一个Container 类的对象
实例时，validate_product( )总是比validate_container( )先被调用：
bottle <- new("Container", name = "Bottle",
price = 3, inventory = 100L, volume = -2)
## Error in validObject(.Object): invalid class "Container" object: volume
must be positive
bottle <- new("Container", name = "Bottle",
price = 3, inventory = -5L, volume = 10)
## Error in validObject(.Object): invalid class "Container" object:
inventory must be non-negative