rgbname <-
function(colorname) {
# partial matching
if(!(colorname %in% colors())) {
colorname <- colors()[grepl("^aqua", colors())][1]
}
rgbv(col2rgb(colorname))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.