####################################################################################################################################
################################## getObjName ######################################################################################
# >>
getObjName <- function(self) {
objName = deparse( substitute(self) )
return(objName)
}
# <<
################################## getObjName ######################################################################################
####################################################################################################################################
####################################################################################################################################
################################## Help Code #######################################################################################
# >>
# objName = getObjName(obj)
# <<
################################## Help Code #######################################################################################
####################################################################################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.