R/SetTextContrastColor.R

Defines functions SetTextContrastColor

SetTextContrastColor <- function(color){
  ifelse( mean(col2rgb(color)) > 127, "black", "white")
}

Try the iPAC package in your browser

Any scripts or data that you put into this service are public.

iPAC documentation built on Nov. 8, 2020, 7:48 p.m.