Canopy.colors <- function(n){ return(colorRampPalette(c("black", "lightslateblue","limegreen", "greenyellow", "yellow","orange","red"))(n))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.