Nothing
colour_brighten <- function(cols, pcts) {
rgb_mat <- 1 - grDevices::col2rgb(cols) / 255
mat <- (1 - sweep(rgb_mat, 2, pcts, "*"))
grDevices::rgb(mat[1,], mat[2,], mat[3,])
}
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.