From a3072a0eb190a1a06993e902017bc41a92b10a29 Mon Sep 17 00:00:00 2001 From: hrbrmstr Date: Tue, 26 Aug 2014 17:51:45 -0400 Subject: [PATCH] Removed debug code --- R/statebins.R | 6 ------ 1 file changed, 6 deletions(-) diff --git a/R/statebins.R b/R/statebins.R index 9cef61b..c038804 100644 --- a/R/statebins.R +++ b/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)) }