Here is the example from the help page again:
mEdit <- setRefClass("mEdit",
fields = list( data = "matrix",
edits = "list")
)
mEdit$methods(
initialize = function(data=matrix()) {
.self$data = data
}
)
mv <- setRefClass("matrixViewer",
fields = c("viewerDevice", "viewerFile"),
contains = "mEdit",
)
mv$methods( initialize =
function(file = "./matrixView.pdf", ...) {
viewerFile <<- file
pdf(viewerFile)
viewerDevice <<- dev.cur()
dev.set(dev.prev())
callSuper(...)
},
finalize = function() {
dev.off(viewerDevice)
})
There is no problem here, but if i put the mv class into a different file, say mv.R, then R complains:
Loading testRefClass
Error in getClass(what, where = where) (from mv.R#1) : “mEdit” is not a defined class