/usr/share/doc/r-cran-r.oo/tests/typeOfClass.R

message("TESTING: typeOfClass()...")

library("R.oo")

type <- typeOfClass(NULL)
print(type)
stopifnot(is.na(type))

type <- typeOfClass(Object)
print(type)
stopifnot(type == "S3-Object")

type <- typeOfClass("Object")
print(type)
stopifnot(type == "S3-Object")

library("methods")
type <- typeOfClass("data.frame")
print(type)
stopifnot(type == "S4")

clazz <- getClass("data.frame")
type <- typeOfClass(clazz)
print(type)
stopifnot(type == "S4")

type <- typeOfClass("Non-Existing-Class")
print(type)
stopifnot(is.na(type))

message("TESTING: typeOfClass()...DONE")

Generated by dwww version 1.15 on Mon Jun 24 15:26:52 CEST 2024.