R/textContrastColor.R

In tlocoh: Constructs homeranges and explores time use patterns from location data

#' Choose a white or black plot background for a particular color of text 
#' @param x A color value
#' @param ... Other arguments (not used)
#' @export

textContrastColor <- function(x, ...) {
    ifelse( mean(col2rgb(x)) > 127, "black", "white")
}