Nothing
##' Returns the vector of colors associated with the factor levels.
##'
##' @param x A colored factor
##' @param \dots Additional arguments (unused)
##' @return A (character) vector of colors, having the same length as x
##' @method color colored
##' @author David C. Norris
##' @seealso \code{\link{colored}}
##' @keywords category color
##' @export
color.colored <- function(x, ...){
unlist(attr(x,'colors')[x])
}
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.