如何在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