.srch <- search()
library(stats4)
inheritedSlotNames("mle")
## Not run: 
# if(require("Matrix")) {
#   print( inheritedSlotNames("Matrix") ) # NULL
#   ## whereas
#   print( inheritedSlotNames("sparseMatrix") ) # --> Dim & Dimnames
#   ##  i.e. inherited from "Matrix" class
# 
#   print( cl <- getClass("dgCMatrix") ) # six slots, etc
# 
#   print( inheritedSlotNames(cl) ) # *all* six slots are inherited
# }
# 
# 
# ## detach package we've attached above:
# for(n in rev(which(is.na(match(search(), .srch)))))
#    try( detach(pos = n) )
# ## End(Not run)
Run the code above in your browser using DataLab