R/isColourStr.R

In mchevalier2/crestr: A Probabilistic Approach to Reconstruct Past Climates Using Palaeoecological Datasets

#' Test if \code{R} can interpret a string as a colour
#'
#' Test if \code{R} can interpret a string as a colour
#'
#' @param col The string to be tested.
#' @return A boolean value, \code{TRUE} if col is a valid colour, \code{FALSE} otherwise
#' @export
#' @examples
#' isColourStr('black')
#' isColourStr('blakc')
#'
isColourStr <- function(col) {
    if(base::missing(col)) col

    sapply(col,
        function(X) {
            tryCatch(is.matrix(grDevices::col2rgb(X)),
                error = function(e) FALSE)
        }
    )
}