File: isColor.R

package info (click to toggle)
r-cran-semplot 1.1.7-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 464 kB
  • sloc: makefile: 2
file content (6 lines) | stat: -rw-r--r-- 166 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
 
isColor <- function(x) {
  sapply(x, function(X) {
    if (!is.logical(X)) tryCatch(is.matrix(col2rgb(X)), 
             error = function(e) FALSE) else FALSE
  })
}