R/compute_transparent_color.R

In idarps: Datasets and Functions for the Class "Modelling and Data Analysis for Pharmaceutical Sciences"

compute_transparent_color <- function(color, percent = 50, name = NULL) {
  ## Get RGB values for named color
  rgb.val <- col2rgb(color)

  ## Make new color using input color as base and alpha set by transparency
  t.col <- rgb(rgb.val[1], rgb.val[2], rgb.val[3],
               maxColorValue = 255,
               alpha = (100 - percent) * 255 / 100,
               names = name)

  ## Save the color
  t.col
}