定义一个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