R/internal_are_colours.R

In bahlolab/isoRelate: Identity-by-Descent Inference of Haploid Recombining Organisms

#' Internal function
#'
#' \code{areColors()} checks if colour names are valid
#' @param x vector of length 1 or higher containing numeric or character values for colours
#' @importFrom grDevices col2rgb
areColors <- function(x) {
  vapply(x, function(X) {
    tryCatch(is.matrix(col2rgb(X)),
             error = function(e) FALSE)
  }, FUN.VALUE=FALSE)
}