R的S3 OO系统以泛型函数为中心,这些泛型函数根据调用泛型函数的对象的类调用方法。关键是泛型函数调用适当的方法,而不是在类中定义方法的其他OO编程语言。
例如,mean
函数是通用函数。
isGeneric("mean")
methods(mean)
这将打印
TRUE
[1] mean,ANY-method mean.Date mean.default mean.difftime
[5] mean.IDate* mean,Matrix-method mean.POSIXct mean.POSIXlt
[9] mean,sparseMatrix-method mean,sparseVector-method
see '?methods' for accessing help and source code
我正在探索R并找到as
函数。我很困惑R这个函数不是通用的,但它仍然有方法。
isGeneric("as")
methods(as)
TRUE
[1] as.AAbin as.AAbin.character
[3] as.alignment as.allPerms
[5] as.array as.array.default
[7] as.binary as.bitsplits
[9] as.bitsplits.prop.part as.call
...
最后有一条警告说as
不是通用的。
Warning message:
In .S3methods(generic.function, class, parent.frame()) :
function 'as' appears not to be S3 generic; found functions that look like S3 methods
有人可以解释一下as
功能是什么以及如何连接到as.list
,as.data.frame
等? R说as.list
是通用的(我很想对R中的不一致感到有点生气,因为我希望as.list
成为list
对象的一种方法。 as
通用函数)。请帮忙。
答案 0 :(得分:11)
as
不是S3通用,但请注意您获得了TRUE。 (我得到了一个假。)这意味着您已经加载了一个将as
定义为S4泛型的包。 S3-generics通过使用*.default
函数和UseMethod
函数的类调度工作。我得到的FALSE表示没有为通用as
定义的方法可以查找。缺少通用as
的一个可论证的原因是,仅使用一个数据对象调用此类函数不会指定“强制目标”。这意味着需要将目标构建到函数名称中。
在声明as
为通用之后(注意大写,这暗示这适用于S4功能:
setGeneric("as") # note that I didn't really even need to define any methods
get('as')
#--- output----
standardGeneric for "as" defined from package "methods"
function (object, Class, strict = TRUE, ext = possibleExtends(thisClass,
Class))
standardGeneric("as")
<environment: 0x7fb1ba501740>
Methods may be defined for arguments: object, Class, strict, ext
Use showMethods("as") for currently available ones.
如果我重新启动R(并且不加载任何调用setGeneric作为'as'的库),我得到:
get('as')
#--- output ---
function (object, Class, strict = TRUE, ext = possibleExtends(thisClass,
Class))
{
if (.identC(Class, "double"))
Class <- "numeric"
thisClass <- .class1(object)
if (.identC(thisClass, Class) || .identC(Class, "ANY"))
return(object)
where <- .classEnv(thisClass, mustFind = FALSE)
coerceFun <- getGeneric("coerce", where = where)
coerceMethods <- .getMethodsTable(coerceFun, environment(coerceFun),
inherited = TRUE)
asMethod <- .quickCoerceSelect(thisClass, Class, coerceFun,
coerceMethods, where)
.... trimmed the rest of the code
但你问“为什么”,当然,在讨论语言设计时总是一个危险的问题。我翻阅了S中统计模型的最后一章,这是大多数适用于S3调度的帮助页面的引用参考,并没有找到强制或as
函数的讨论。有一个隐含的“S3 generic”定义要求使用UseMethod
,但没有提到为什么as
被排除在该策略之外。我想到了两种可能性:它是在强制应用中防止任何类型的继承歧义,或者它是一种效率决定。
我应该补充说有一个S4 setAs
- 函数,你可以用showMethods("coerce")
找到所有S4强制函数。