This file is indexed.

/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]