R/col2hex.R

In abbey-thomas/speechcollectr: R Tools for Collecting Speech Production & Perception Data

#' Convert color name to hexidecimal code
#'
#' @param cname Character. Name of an HTML color.
#'
#' @details Pulled from the `gplots` package. This version allows for compatibility with older versions of R.
#'
#' @return A hexidecimal color code for the provided color name.
#' @export
#'
#' @examples
#' col2hex("white")
#'
#' @importFrom grDevices col2rgb
#' @importFrom grDevices rgb
#'
col2hex <- function (cname) {
  colMat <- col2rgb(cname)
  rgb(red = colMat[1, ]/255, green = colMat[2, ]/255, blue = colMat[3,
  ]/255)
}