r - 如何在 R 中编写 is.customClass 函数？

Question

我们都知道诸如is.data.frame或之类的功能is.double。可能很容易做，但很难用谷歌搜索：如何创建自己的。？功能？那么有没有更好的方法来做到这一点：

is.myClass <- function(x){
if(class(x) %in% "myClass") return(TRUE)
else return(FALSE)
}

Answer 1

也许inherits就足够了：

is.myClass <- function(x) {inherits(x,"myClass")}

x <- 1
is.myClass(x)
[1] FALSE
class(x) <- c(class(x),"myClass")
is.myClass(x)
[1] TRUE