R: Examples for 'base::isS4'

### ** Examples

## Don't show: 
require(methods)
## End(Don't show)
isS4(pi) # FALSE

[1] FALSE

isS4(getClass("MethodDefinition")) # TRUE

[1] TRUE

## Don't show: 
stopifnot(isS4(asS4(Sys.time())))
## Following is a correction of previous behavior. See note in the
## value section above
stopifnot(isS4(asS4(getClass("MethodDefinition"), FALSE, 2)))
stopifnot(!isS4(asS4(getClass("MethodDefinition"), FALSE, 0)))
## End(Don't show)

Examples for 'base::isS4'

Test for an S4 object