The R Project SVN R

Rev

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

options(error = recover)
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))

options(error=recover)
## inheritance.  redefines flag so should fail:
try(setRefClass("foo2", list(b2 = "numeric", flag = "complex"),
            contains = "foo",
            classMethods = list(addBoth = function(incr) {
                addToBar(incr) #uses inherited class method
                setB2(getB2() + incr)
                })))
## but with flag as a subclass of "character", should work
setRefClass("foo2", list(b2 = "numeric", flag = "signature"),
            contains = "foo",
            classMethods = list(addBoth = function(incr) {
                addToBar(incr) #uses inherited class method
                setB2(getB2() + incr)
                }))
f2 <- new("foo2", bar = -3, flag = as("ANY", "signature"), b2 = ff$bar)
f2$export("foo")
stopifnot(identical(f2$flag,  as("ANY", "signature")), 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) {
                callSuper(incr)
                setFlag(paste(getFlag(), paste(incr, collapse = ", ")))
                incr
            }))

f3 <- new("foo3")
f3$import(f2)
stopifnot(all.equal(f3$b2, f2$b2), all.equal(f3$bar, f2$bar), all.equal(f3$flag, f2$flag))
try(f3$addBoth(1)) # currently callSuper() is a stub
## stopifnot(all.equal(f3$bar, -3), all.equal(f3$b2, 2:4+0),
##          all.equal(f3$flag, 2+1i))