Copy constructors while using the class Versioned of Biobase: bug

CopyCtorVersioned.R

library(Biobase)


setClass("A",
         representation = representation(var1="integer"), 
         prototype=prototype(var1=integer(),
                             new("Versioned", versions=c(A = "0.1.0"))), 
         contains="Versioned")

ia <- new("A")
try(ia2 <- new("A", ia))
# "ia" is mapped to the argument "versions" of the Versioned "initialize" method!


setMethod("initialize", "Versioned", function (.Object, ...) 
{
  .local <- function (.Object, ..., versions = list()) 
  {
    .Object <- callNextMethod(.Object, ...)
    classVersion(.Object)[names(versions)] <- versions
    .Object
  }
  .local(.Object, ...)
}
)


setClass("A",
         representation = representation(var1="integer"), 
         prototype=prototype(var1=integer(),
                             new("Versioned", versions=c(A = "0.1.0"))), 
         contains="Versioned")

ia <- new("A")
ia2 <- new("A", ia)
# works correctly