/usr/lib/R/site-library/Biobase/testClass.R is in r-bioc-biobase 2.20.0-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | #some simple test classes to see if things are working at all
library(methods)
setClass("foo", representation(a="numeric", b="numeric"))
setClass("bar", representation(c="numeric", b="character"))
setClass("baz", "foo", representation(d="list", e="logical"))
#load up Biobase so we can test
library(Biobase)
f1 <- new("foo", a=10,b=15)
l1 <- list(a=f1)
nc1 <- new("container", x=l1, content="foo", locked=FALSE)
b1 <- new("bar", b="AAA", c=10)
#this should fail...
nc1[[1]] <- b1
nc1[[1]]
v<-nc1[1]
|