#' Take a solid color and turn it semi-transparent
#'
#' Superseded by `scales::alpha()`
#'
#' @param col Color
#' @param alpha Semi-transparency value
#'
#' @examples
#' alphaCol('red', 0.5)
#'
#' @export
alphaCol <- function(col, alpha) {
x <- t(col2rgb(col))
rgb(x, alpha=alpha*255, maxColorValue=255)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.