Nothing
GetHierID <- function(MyHier){
if(class(MyHier) == "list")
conceptID <- gsub("^\\D+|\\D+$", "", names(MyHier))
if(class(MyHier) == "character")
conceptID <- gsub("^\\D+|\\D+$", "", MyHier)
if(any(conceptID == "") || any(is.na(conceptID)))
conceptID[which(conceptID == "")] <- NA
return(conceptID)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.