with_class.Rd
Extend class of object
with_class(obj, className)
object under test
class to append to list of classes