R - 从基函数中创建泛型

Question

我想使用nrow函数来表示我将定义的类略有不同。但我也不想掩盖nrow函数，所以我想重新定义nrow为

nrow <- function(x) UseMethod("nrow")

nrow.matrix <- function(x) base::nrow(x)
nrow.data.frame <- function(x) base::nrow(x)
nrow.list <- function(x) base::nrow(x) # should return NULL
nrow.numeric <- function(x) base::nrow(x) # should return NULL
nrow.character <- function(x) base::nrow(x) # should return NULL
nrow.ts <- function(x) base::nrow(x) # should return NULL

这是什么东西，犹太教？这是错误的做法吗？

Answer 1

只需定义默认方法：

x <- 1
class(x) <- "myclass"

nrow <-  function(x) UseMethod("nrow")
nrow.default <- base::nrow
nrow.myclass <- function(x) 42

nrow(x)
#[1] 42

nrow(matrix(1:15, ncol=3))
#[1] 5