Hi Vince --
Not a solution, but a little understanding and a workaround. With C1,
what happens is that the 'names' attribute of ll gets transfered to
the 'names' attribute of the S4 instance.
> setClass("C1", contains="list")
[1] "C1"
> setClass("C2", contains="C1")
[1] "C2"
> ll <- list(a=1, b=2)
> c1 <- new("C1", ll)
> names(c1)
[1] "a" "b"
> names([EMAIL PROTECTED])
NULL
With C2, the action happens in the constructed method coerce<-("C2",
"list") (available after class instantiation from the list):
> setClass("C1", contains="list")
[1] "C1"
> setClass("C2", contains="C1")
[1] "C2"
> ll <- list(a=1, b=2)
> c2 <- new("C2", ll)
> getMethod("coerce<-", c("C2", "list"))
Method Definition:
function (from, to, value)
{
.value <- as(from, "C1")
as(.value, "list") <- value
value <- .value
{
for (what in ".Data") slot(from, what) <- slot(value,
what)
from
}
}
Signatures:
from to
target "C2" "list"
defined "C2" "list"
C2 gets coerced to its super class, C1. C1 is then assigned the list,
including attributes. The bug enters in the 'for (what in ".Data")',
where the slots of .Data from C1, but not the attributes, are
copied.
The code chunk above is generated in methods:::.simpleReplaceExpr;
naively copying attributes from 'value' to 'from' does not work, as
attributes on 'from' include it's class.
A workaround would be to define an appropriate setAs
> setClass("C1", contains="list")
[1] "C1"
> setClass("C2", contains="C1")
[1] "C2"
> setAs("C2", "list",
+ def=function(from) stop('your def here'),
+ replace=function(from, to, value) {
+ [EMAIL PROTECTED] <- value
+ from
+ })
[1] "coerce<-"
> ll <- list(a=1, b=2)
> c2 <- new("C2", ll)
> names(c2)
[1] "a" "b"
> names([EMAIL PROTECTED])
NULL
presumably this breaks under more esoteric scenarios.
Martin
Vincent Carey 525-2265 <[EMAIL PROTECTED]> writes:
> can list names attributes be preserved through S4
> class containment? seems to be so but only if the containment
> relationship is direct ... see below.
>
>> setClass("c1", contains="list")
> [1] "c1"
>> l1 = list(a=1, b=2)
>> o1 = new("c1", l1)
>> names(o1) # pleasant surprise
> [1] "a" "b"
>> setClass("c2", contains="c1")
> [1] "c2"
>> o2 = new("c2", l1)
>> names(o2) # sad
> NULL
>> sessionInfo()
> R version 2.6.0 Under development (unstable) (2007-05-11 r41535)
> powerpc-apple-darwin8.9.0
>
> locale:
> C
>
> attached base packages:
> [1] "stats" "graphics" "grDevices" "utils" "datasets" "methods"
> [7] "base"
>
> ______________________________________________
> R-devel@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
--
Martin Morgan
Bioconductor / Computational Biology
http://bioconductor.org
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
