Nothing
# -----------------------------------------------------------------------------
# make.keys.R
#
# FUNCTION: make.keys
#
# Coerces arguments to a valid value that can be be passed to various hash
# utilitites.
#
# -----------------------------------------------------------------------------
make.keys <- function(key) {
key <- as.character( key )
if ( length(key) == 0 ) stop(
"You must provide at least one key to the hash"
)
if ( any(key=="") ) stop(
"\nThe empty character string, '', cannot be used for a key at key(s): ",
paste( which( key == "" ), collapse=", " )
)
return( key )
}
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.