Browse Source

Removed debug code

master
hrbrmstr 10 years ago
parent
commit
a3072a0eb1
No known key found for this signature in database GPG Key ID: 1D7529BE14E2BBA9
  1. 6
      R/statebins.R

6
R/statebins.R

@ -32,14 +32,8 @@ invert <- function(hexColor, darkColor="black", lightColor="white") {
G <- as.integer(paste("0x", substr(hexColor,3,4), sep=""))
B <- as.integer(paste("0x", substr(hexColor,5,6), sep=""))
cat("R ") ; print(R)
cat("G ") ; print(G)
cat("B ") ; print(B)
YIQ <- ((R*299) + (G*587) + (B*114)) / 1000
cat("YIQ ") ; print(YIQ)
return(ifelse(YIQ >= 128, darkColor, lightColor))
}

Loading…
Cancel
Save