R/lightn.R

In m-a-r-i-o/aRtistic: Finding Intermediate Mass Black Holes In Star Clusters With Machine Learning

#' lightn function
#'
#' This function generates a transparent version of the given color
#' for plotting shaded areas
#' @param colo input color
#' @keywords color, transparent, shaded area
#' @export
#' @examples
#' lightn("orange") #transparent orange

# 
lightn <- function(colo)
{
    lcolo <- col2rgb(colo, alpha = F)
    hexlcolo <- rgb(red = lcolo[1,1]/255, green = lcolo[2,1]/255, blue = lcolo[3,1]/255, alpha = 0.15)
    return(hexlcolo)
}