R/cols2.r

In AndreasFischer1985/quantqual: Software package for analyzing quantitative and qualitative data.

#' Function cols2
#' 
#' Returns a vector of transparent colors based on a vector of colors.
#' @param col Character vector specifying the colors to be transformed.
#' @param transparency Numberic value specifying the transparency of the colors to be returned. Defaults to .3
#' @details Returns a vector of transparent colors based on a vector of colors.
#' @keywords plotting
#' @export
#' @examples
#' cols2(cols(10,"jddm")))

cols2 <- function (col, transparency = 0.7) 
{
    if (length(transparency) != 1) 
        transparency = F
    if (is.na(transparency) | !is.numeric(transparency)) 
        transparency = F
    if (transparency < 0) 
        transparency = F
    ifelse(transparency == F, list(sapply(col, function(x) quantqual::cols(3, 
        x, "white")[2])), list(apply(col2rgb(col), 2, function(x) rgb(x[1]/255, 
        x[2]/255, x[3]/255, 1 - transparency))))[[1]]
}