आर

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])) 
# } 

अन्य विकल्प के रूप में आप टिप्पणी में उल्लेख किया है, ले जाने के लिए किया जाएगा अपने स्वयं के एक समारोह में आम हिस्सा (रिफैक्टरिंग, मुझे लगता है कि इसे कहा जाता है?) और अपने कार्यों के भीतर कॉल करें।