obj <- new("VersionedBiobase")
classVersion(obj)
obj <- new("VersionedBiobase", versions=list(A="1.0.0"))
classVersion(obj)
A <- setClass("A", contains="VersionedBiobase")
classVersion("A")
a <- A()
classVersion(a)
obj <- new("VersionedBiobase", versions=c(MyVersion="1.0.0"))
classVersion(obj)
B <- setClass("B", contains="VersionedBiobase",
prototype=prototype(new("VersionedBiobase",versions=list(B="1.0.0"))))
classVersion("B")
b <- B()
classVersion(b)
removeClass("A")
removeClass("B")
Run the code above in your browser using DataLab