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