0

有没有办法在 R 中动态强制对象？

背景 我正在尝试为摘要创建一个函数工厂，它可以根据传递的对象的类返回特定的方法。特别是，这是针对http://adv-r.had.co.nz/Functional-programming.html#lists-of-functions中的问题之一

实现一个类似于 base::summary() 的汇总函数，但使用函数列表。修改该函数，使其返回一个闭包，从而可以将其用作函数工厂。

例如，我尝试了一些变体，所有这些变体都是不正确/不完整的。

object.list = list(df = data.frame(),fr=factor(), mx = matrix())
summary.new = function(y){
  function(x,...){
    UseMethod(summary,x)
  }
}
summary.new.list = lapply(object.list, summary.new)

我想知道是否有一种方法可以动态地强制一个对象——比如 as.() 并使用它从通用对象返回适当的方法。

summary.new.list 函数

> summary.new.list
$df
function (x, ...) 
{
    UseMethod("summary", x)
}
<environment: 0x108b5edc>

$fr
function (x, ...) 
{
    UseMethod("summary", x)
}
<environment: 0x108b5de0>

$mx
function (x, ...) 
{
    UseMethod("summary", x)
}
<environment: 0x108b5ce4>

我想根据对象调用函数，例如。对于我想调用的数据框summary.new.list$df(data.frame(1:12,3,4))。虽然它现在可以工作，因为 $df 函数仍然是通用的 - 我希望从那里调用基本的 summary.data.frame 函数而不是 UseMethod

4

1 回答 1

0

我不完全理解这个例子的预期目的，但这里有一些东西需要细细琢磨：

 summary2 <- function(x){ switch( class(x)[1], "data.frame"= summary.data.frame, 
                                               "list"=summary.list , 
                                               "factor"=summary.factor,
                                               "matrix"=summary.matrix,
                                               "numeric" = summary.default) }
 summary.new.list = lapply(object.list, summary2)

 # Application of that list of functions matched to object classes
 > mapply( function(x,y) { do.call(x, list(y) )}, summary.new.list, object.list)
$df
< table of extent 0 x 0 >

$fr
integer(0)

$mx
    V1         
 Mode:logical  
 NA's:1

您基本上是在重新发明函数的类调度。该问题要求“强制”，但问题似乎不需要任何强制，至少在我阅读时。

于 2017-01-09T00:22:47.610 回答