R chooseOpsMethod 选择适当的操作方法

说明

chooseOpsMethod 是当为给定调用找到两个合适的方法时由 Ops Group Generic 调用的函数。它根据正在分派的对象确定使用哪种方法进行操作。

首先使用 reverse = FALSE 调用该函数，其中 x 对应于组通用调用的第一个参数，y 对应于第二个参数。如果chooseOpsMethod()为x返回FALSE，则再次调用chooseOpsMethod，其中x和y交换，mx和my交换，以及reverse = TRUE。

用法

chooseOpsMethod(x, y, mx, my, cl, reverse)

参数

x , y	由组通用分派的对象。
mx , my	为对象 x 和 y 找到的方法。
cl	对组通用的调用。
reverse	逻辑值，指示 x 和 y 是否与它们提供给通用的方式相反。

值

此函数必须返回 TRUE 或 FALSE 。值 TRUE 指示应使用方法 mx。

例子

# Create two objects with custom Ops methods
foo_obj <- structure(1, class = "foo")
bar_obj <- structure(1, class = "bar")

`+.foo` <- function(e1, e2) "foo"
Ops.bar <- function(e1, e2) "bar"

invisible(foo_obj + bar_obj) # Warning: Incompatible methods

chooseOpsMethod.bar <- function(x, y, mx, my, cl, reverse) TRUE

stopifnot(exprs = {
  identical(foo_obj + bar_obj, "bar")
  identical(bar_obj + foo_obj, "bar")
})

# cleanup
rm(foo_obj, bar_obj, `+.foo`, Ops.bar, chooseOpsMethod.bar)

也可以看看

Ops