Nothing
##' Generic function 'key'
##'
##' This generic function supports extraction of color keys from colored
##' factors, via the specific method \code{key.colored}
##' @param x A colored object
##' @param \dots Additional arguments
##' @return A vector of colors
##' @rdname key
##' @export
key <- function(x, ...) UseMethod("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.