# typical test
getObjectClassNames(getObjectClassNames(factor(letters[1:3])))
#$classname
#[1] "factor"
#$classnames
#[1] "factor"
# another test
getObjectClassNames(new.env())
#$classname
#[1] NA
#$classnames
#[1] "environment"
Run the code above in your browser using DataLab