R/SetTextContrastColor.R

SetTextContrastColor <- function(color){
  ifelse( mean(col2rgb(color)) > 127, "black", "white")
}
gryslik/iPAC documentation built on May 18, 2019, 3:42 p.m.