| setClass("classA", contains = "matrix") | |
| setClass("classApp", | |
| slots = representation(App = "character"), | |
| contains = "classA") | |
| ## just so we can export it -- | |
| ## *and* ensure it is "attached to graphics::plot generic" : | |
| setMethod("plot", "classA", function(x, y, ...) NULL) | |
| setMethod("summary", "classApp", function(object, ...) cat("summary(<classApp>)\n")) | |
| nil <- NULL # see if we can use '::' on it | |
| ## Export, so we get a *conflict* message on attaching: | |
| search <- function(...) base::search(...) |