R/color_check.R

In etc5523-2020/r-package-assessment-samuellyu-2021: Covid19: The Battle For Independence Package

#' This is a function used to assess if a string is a color 
#' 
#' @importFrom grDevices col2rgb
#' @noRd
color_check <- function(x) {
  sapply(x, function(X) {
    tryCatch(is.matrix(col2rgb(X)), 
             error = function(e) FALSE)
  })
}