obj <- new("Versioned", versions=list(A="1.0.0"))
obj
classVersion(obj)
A <- setClass("A", contains="Versioned")
classVersion("A")
a <- A()
a # 'show' nothing by default
classVersion(a)
B <- setClass("B", contains="Versioned",
prototype=prototype(new("Versioned",versions=list(B="1.0.0"))))
classVersion("B")
b <- B()
classVersion(b)
classVersion(b)["B"] <- "1.0.1"
classVersion(b)
classVersion("B")
classVersion("B") < classVersion(b)
classVersion(b) == "1.0.1"
C <- setClass("C",
representation(x="numeric"),
contains=("VersionedBiobase"),
prototype=prototype(new("VersionedBiobase", versions=c(C="1.0.1"))))
setMethod("show", signature(object="C"),
function(object) print(object@x))
c <- C(x=1:10)
c
classVersion(c)
Run the code above in your browser using DataLab