Question

在许多变体中，类似的问题已被多次提出...... 但我没有找到明确的建议：

“将S3方法导出为函数”

我用 roxygen2 编写了一个自定义S3类，称之为'my_item'。这是构造函数：

my_item <- function(n) structure(list(n=n),class='my_item')

我需要的是一种定义"list of my_items => data.frame"强制转换函数的方法：

 #' @method as.data.frame my_item
 #' @export

 as.data.frame.my_item <- function(x) ...

只要我用my_item以这种方式调用它，就可以了：

as.data.frame(my_item('a'))

但是将相同的调用应用于对象列表是行不通的，因为class(list)为空：

as.data.frame(list(my_item('a'),my_item('b')))

这也不起作用，因为未导出函数/方法

as.data.frame.my_item(list(my_item('a'),my_item('b')))

这不适用于显式命名空间限定：

my_pkg::as.data.frame.my_item(...)

Error: 'as.data.frame.my_item' is not an exported object from 'namespace:my_pkg'

在 zoo 包中，plot泛型函数可以使用。

请参阅plot.zoo，S3方法，导出为函数：

在 zoo :: NAMESPACE

中

export(
   ...
   "plot.zoo"
   ...
)
S3method("plot", "zoo")
S3method("as.data.frame", "zoo")

生成的包范围是：

library(zoo)

methods('as.data.frame')

[1] as.data.frame.aovproj*        as.data.frame.array           as.data.frame.AsIs           
[4] as.data.frame.character       as.data.frame.chron*          as.data.frame.complex        
[7] as.data.frame.data.frame      as.data.frame.data.table*     as.data.frame.Date           
[10] as.data.frame.dates*          as.data.frame.default         as.data.frame.difftime       
[13] as.data.frame.factor          as.data.frame.ftable*         as.data.frame.integer        
[16] as.data.frame.ITime*          as.data.frame.list            as.data.frame.logical        
[19] as.data.frame.logLik*         as.data.frame.matrix          as.data.frame.model.matrix   
[22] as.data.frame.noquote         as.data.frame.numeric         as.data.frame.numeric_version
[25] as.data.frame.ordered         as.data.frame.POSIXct         as.data.frame.POSIXlt        
[28] as.data.frame.raw             as.data.frame.shingle*        as.data.frame.table          
[31] as.data.frame.times*          as.data.frame.ts              as.data.frame.vector         
[34] as.data.frame.yearmon*        as.data.frame.yearqtr*        as.data.frame.zoo*           
see '?methods' for accessing help and source code

methods('plot')

[1] plot.acf*           plot.data.frame*    plot.decomposed.ts* plot.default        plot.dendrogram*   
[6] plot.density*       plot.ecdf           plot.factor*        plot.formula*       plot.function      
[11] plot.hclust*        plot.histogram*     plot.HoltWinters*   plot.isoreg*        plot.lm*           
[16] plot.medpolish*     plot.mlm*           plot.ppr*           plot.prcomp*        plot.princomp*     
[21] plot.profile.nls*   plot.raster*        plot.shingle*       plot.spec*          plot.stepfun       
[26] plot.stl*           plot.table*         plot.times*         plot.trellis*       plot.ts            
[31] plot.tskernel*      plot.TukeyHSD*      plot.zoo           
see '?methods' for accessing help and source code

这表明导出plot.zoo，as.data.frame.zoo*未导出

所以问题可能是错误的。

更好的是：

“使用'基于列表的列表 - S3对象'时，如何实现 cast-protocol（'as -...'）？

Answer 1

我采取了不同的方法：

通过'my_item'+'_list'函数

as.my_item_list()

定义处理我的＆＃34;自定义＆＃34; 列表的as.data.frame.my_item_list方法
使用泛型调用DF转换：as.data.frame(as.my_item_list(some_list))

在以下示例中，我将my_item类名替换为较短的ob

<强> DEFINITION

# ---( the 'ob' S3 constructor )---------------------------------------------

ob <- function(a,b) structure(list(a=a,b=b), class='ob')
is.ob <- function(x) inherits(x,'ob')

#---( the 'ob_list' cast for lists )-----------------------------------------

as.ob_list <- function(x, ...) UseMethod('as.ob_list')
as.ob_list.list <- function(x, ...) {
    stopifnot(all(sapply(x,is.ob)))
    class(x) <- append(class(x),'ob_list',after=0)
    x
}

#---( as.data.frame.* methods )----------------------------------------------

as.data.frame.ob <- function(x, ...) data.frame(t(as.matrix(unlist(x))))
as.data.frame.ob_list <- function(x, ...) do.call('rbind', lapply(x,as.data.frame))

<强> TEST

o1 <- ob(1,10)
o2 <- ob(2,20)
o3 <- ob(3,30)

ol <- list(o1,o2,o3)

df <- as.data.frame(as.ob_list(ol))

print(df)

  a  b
1 1 10
2 2 20
3 3 30

看起来不错！

为自定义S3对象编写'as.data.frame'方法

1 个答案: