R语言面向对象S4

最新推荐文章于 2023-02-05 19:46:31 发布

牛哥骑驴看马

最新推荐文章于 2023-02-05 19:46:31 发布

阅读量855

点赞数

分类专栏： R 经验

R 经验专栏收录该内容

12 篇文章 0 订阅

订阅专栏

参考： http://blog.fens.me/r-object-oriented-intro/

http://cos.name/2009/07/studying-notes-on-oop-in-r/

A）创建S4对象：

setClass(Class, representation, prototype, contains=character(),
          validity, access, where, version, sealed, package,
          S3methods = FALSE, slots)

参数列表：

Class: 定义类名
slots: 定义属性和属性类型
prototype: 定义属性的默认值
contains=character(): 定义父类，继承关系
validity: 定义属性的类型检查
where: 定义存储空间
sealed: 如果设置TRUE，则同名类不能被再次定义
package: 定义所属的包
S3methods: R3.0.0以后不建议使用
representation R3.0.0以后不建议使用
access R3.0.0以后不建议使用
version R3.0.0以后不建议使用

练习使用S4来定义Shape基类，Ecllipse子类，Circle子子类

# define in a style like C++
setClass("Shape",slots=list(name="character",shape="character"),prototype=list(name=character(0)))

setClass("Eclipse",contains="Shape",slots=list(radius="numeric"),
         prototype=list(radius=c(1,1),shape="Eclipse"))

setClass("Circle",contains="Eclipse",slots=list(radius="numeric"), # overwrite "radius" in Eclipse
         prototype=list(radius=1,shape="Circle"))


# 验证radius参数
setValidity("Eclipse",
            function(obj)
            {
              if(length(obj@radius)!=2) stop("not valid radius for Ellipse");
              if(any(obj@radius<0)) stop("Radius is negative");  
            }
           )

# 面积泛函接口
setGeneric("Area",
           function(obj,...) standardGeneric("Area"))

# 面积泛函实现
setMethod("Area","Eclipse",
          function(obj,radius)
          {
            cat("Ellipse Area :\n");
            return(pi*prod(obj@radius));
          }
         )
setMethod("Area","Circle",
          function(obj,radius)
          {
            cat("Circle Area：\n");
            return(pi*obj@radius^2);
          }
         )

S4还无法做到像C++那样使用基类指针动态类型来实现虚函数操作。