timbow <- function(n=10, reverse=F) {
x <- colorRampPalette(c(viridis(5), viridis(5, begin=0.5, direction = -1, option="plasma")[-1]))
output <- x(n)
if (reverse) {
output <- rev(output)
}
return(output)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.