使用 S3 对象进行双重调度，一个泛型与两个泛型

问题描述

假设您正在尝试使用 S3 模拟双重分派，并且您正在决定两种方法：

示例 1：一个泛型 `f()`

f <- function(arg1,arg2) UseMethod("f",arg1)
f.foo <- function(arg1,arg2) UseMethod("f.foo",arg2)
f.foo.bar <- function(arg1,arg2) toupper(paste(arg1,arg2))
f.foo.baz <- function(arg1,arg2) tolower(paste(arg1,arg2))

f.faa <- function(arg1,arg2) {
  arg1 <- paste(arg1,arg1)
  NextMethod()
}

f.fee <- function(arg1,arg2){
  x <- NextMethod()
  paste0(x,"!")
}

示例 2：两个泛型 `g()`、`h()`

g <- function(arg1,arg2) UseMethod("g",arg1)
g.foo <- function(arg1,arg2) h(arg2,arg1)
h <- function(arg2,arg1) UseMethod("h",arg2)
h.bar <- function(arg2,arg1) toupper(paste(arg1,arg2))
h.baz <- function(arg2,arg1) tolower(paste(arg1,arg2))

g.faa <- function(arg1,arg1)
  NextMethod()
}

g.fee <- function(arg1,"!")
}

测试等效性

FOO <- structure("Hello",class = "foo")
FAA <- structure("Greetings",class = c("faa","foo"))
FEE <- structure("Greetings",class = c("fee","foo"))
BAR <- structure("World",class = "bar")
BAZ <- structure("Universe",class = "baz")

#ALL TRUE
identical(f(FOO,BAR),g(FOO,BAR))
identical(f(FOO,BAZ),BAZ))
identical(f(FAA,g(FAA,BAR))
identical(f(FAA,BAZ))
identical(f(FEE,g(FEE,BAR))
identical(f(FEE,BAZ))

您认为以下哪个示例是更好的选择？
一个是否比另一个更像双重调度，或者它们本质上是等价的？
哪个可以为用户提供更好的可扩展性/灵活性？

我能说的唯一区别是，在示例 1 中，f.foo 直接调用 UseMethod("f.foo",arg2) 而在示例 2 中，g.foo 调用 h，然后调用 {{1} }.所以简而言之，第二种方法只有一个额外的函数调用。

也许第二个示例在代码结构中更容易跟踪，但它们本质上是等效的。

当然，最终会更好的是类结构以及最适合包 API 的内容

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

double-dispatch methods methods r r