定義一個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