r - R で `==` をジェネリック関数にする

Question

==ジェネリック関数を作りたいです。

実行すると: setGeneric("==")、定義は変更されないようです:

> `==`
function (e1, e2)  .Primitive("==")
> setGeneric("==")
[1] "=="
> `==`
function (e1, e2)  .Primitive("==")

を呼び出すとsetgeneric("`==`")、次のエラーが表示されます。

> setGeneric("`==`")
Error in setGeneric("`==`") : 
  must supply a function skeleton for ‘`==`’, explicitly or via an existing function

==関数を次のように定義できます。

`==` <- function(x,y) 42;

そして、私はそれを使用できますsetGeneric。しかし、==そこに元の本体を配置する必要があり、これは不格好に思えます。

==S4でジェネリックにする方法はありますか？