R/col.f.r

In einaooka/tea.color: Colors with Transparency Index

#' @title Colors with Transparency Index
#'
#' @description Colors with transparency index.
#'
#' @param alpha Transparency index (0-1).
#'
#' @examples
#'   red.f(0.5)
#'
#' @export gray.f
#' @export red.f
#' @export green.f
#' @export lightgreen.f
#' @export blue.f
#' @export lightblue.f
#' @export purple.f
#' @export orange.f
#' @export pink.f
#'

gray.f <- function(alpha=1){colorSpectrum <- rgb(0/255,0/255,0/255,alpha)}

#' @describeIn gray.f
red.f <- function(alpha=1){colorSpectrum <- rgb(216/255,0/255,0/255,alpha)}

#' @describeIn gray.f
green.f <- function(alpha=1){rgb(49/255,163/255,84/255,alpha)}

#' @describeIn gray.f
lightgreen.f <- function(alpha=1){rgb(162/255,205/255,90/255,alpha)}

#' @describeIn gray.f
blue.f <- function(alpha=1){rgb(49/255,130/255,189/255,alpha)}

#' @describeIn gray.f
lightblue.f <- function(alpha=1){ rgb(166/255,189/255,219/255,alpha)}

#' @describeIn gray.f
purple.f <- function(alpha=1){rgb(117/255,107/255,177/255,alpha)}

#' @describeIn gray.f
orange.f <- function(alpha=1){rgb(254/255,178/255,76/255,alpha)}

#' @describeIn gray.f
pink.f <- function(alpha=1){rgb(251/255,180/255,185/255,alpha)}