r - 如果已经存在同名函数，则定义 S4 方法

Question

我有一个函数myFunction，我需要创建一个同名的 S4 方法（不要问我为什么）。
我想保留myFunction的旧功能。

有没有办法保留我的旧功能？

我宁愿不为这个旧函数设置一个泛型，因为签名可能非常不同......

Answer 1

是的，有一种方法可以保留您的旧功能。除非您希望 S3 和 S4 函数都接受相同类的相同数量的参数，否则执行起来并不复杂。

# Create an S3 function named "myFun"
myFun <- function(x) cat(x, "\n")

# Create an S4 function named "myFun", dispatched when myFun() is called with 
# a single numeric argument
setMethod("myFun", signature=signature(x="numeric"), function(x) rnorm(x))

# When called with a numeric argument, the S4 function is dispatched
myFun(6)
# [1]  0.3502462 -1.3327865 -0.9338347 -0.7718385  0.7593676  0.3961752

# When called with any other class of argument, the S3 function is dispatched
myFun("hello")
# hello 

如果您确实希望 S4 函数采用与 S3 函数相同类型的参数，则需要执行以下操作，设置参数的类，以便 R 可以通过某种方式判断您使用的两个函数中的哪一个打算使用：

setMethod("myFun", signature=signature(x="greeting"), 
          function(x) cat(x, x, x, "\n"))

# Create an object of class "greeting" that will dispatch the just-created 
# S4 function
XX <- "hello"
class(XX) <- "greeting"
myFun(XX)
# hello hello hello 

# A supplied argument of class "character" still dispatches the S3 function
myFun("hello")
# hello