The R Project SVN R

Rev

Rev 52846 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

setRefClass("foo", list(bar = "numeric", flag = "character"),
            fieldPrototypes = list(flag = "standard flag"),
            classMethods = list(
            addToBar = function(incr) {
                b = getBar() + incr
                setBar(b)
                b
            }
            ))
ff = new("foo", bar = 1.5)
stopifnot(identical(ff$bar, 1.5))
ff$bar <- pi
stopifnot(identical(ff$bar, pi))

stopifnot(identical(ff$flag, "standard flag"))

ff$setBar(1:3)
stopifnot(identical(ff$bar, 1:3))

ff$getBar()
stopifnot(all.equal(ff$addToBar(1), 2:4))


## inheritance.  redefines flag
setRefClass("foo2", list(b2 = "numeric", flag = "complex"),
            contains = "foo",
            classMethods = list(addBoth = function(incr) {
                addToBar(incr) #uses inherited class method
                setB2(getB2() + incr)
                }))
f2 <- new("foo2", bar = -3, flag = 1+1i, b2 = ff$bar)
stopifnot(identical(f2$flag, 1+1i), identical(f2$bar, -3),
          all.equal(f2$b2, 2:4+0))
f2$addBoth(-1)
stopifnot(all.equal(f2$bar, -4), all.equal(f2$b2, 1:3+0))

setRefClass("foo3", contains = "foo2",
            classMethods = list(addBoth = function(incr) {
                addBoth.prev(incr)
                setFlag(getFlag()+incr)
                incr
            }))

## this should be f3 <- as(f2, "foo3")
f3 <- new("foo3", bar = f2$bar, b2 = f2$b2, flag = f2$flag)
f3$addBoth(1)
stopifnot(all.equal(f3$bar, -3), all.equal(f3$b2, 2:4+0),
          all.equal(f3$flag, 2+1i))