R中多個類的相同方法

Question

我經常遇到兩種類似的方法，當它們足夠相似時，我希望它們有相同的方法。例如：

func.matrix = function(m) { 
stopifnot(ncol(m) == 2) 
c(mean(m[, 1]), sd(m[, 2])) 
} 

func.data.frame = function(m) { 
stopifnot(ncol(m) == 2) 
c(mean(m[, 1]), sd(m[, 2])) 
} 

如何保存冗餘？

Answer 1

如果這兩個函數實際上是一樣的，那麼你可以做這樣的事情給自己節省一些打字至少：

func.matrix <- func.data.frame <- function(m) { 
    stopifnot(ncol(m) == 2) 
    c(mean(m[, 1]), sd(m[, 2])) 
} 
func.matrix 
# function(m) { 
# stopifnot(ncol(m) == 2) 
# c(mean(m[, 1]), sd(m[, 2])) 
# } 
func.data.frame 
# function(m) { 
# stopifnot(ncol(m) == 2) 
# c(mean(m[, 1]), sd(m[, 2])) 
# } 

另一種選擇，當你在註釋中，將移動公共部分出自己的功能（重構，我想它被稱爲？）並在你的函數內調用它。