Тот же метод для нескольких классов в 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])) 
# } 

Другая альтернатива, как вы упомянули в комментарии, было бы переместить общая часть в свою собственную функцию (рефакторинг, я думаю, это называется?) и назовите это в своих функциях.