R/CRUKcol.R

In crukci-bioinformatics/redpanda: What the package does (short line)

`CRUKcol` <-
function(col="Blue",tint=0){

col<-pmatch(col,c("Blue","Magenta","Teal","Green","LightBlue","Turquoise","Purple","Pink","Orange","Yellow"))

if(tint==0){
if(col==1){
return(rgb(29,0,150,maxColorValue=255))
}
if(col==2){
return(rgb(236,0,140,maxColorValue=255))
}
if(col==3){
return(rgb(0,98,109,maxColorValue=255))
}
if(col==4){
return(rgb(31,161,45,maxColorValue=255))
}
if(col==5){
return(rgb(0,119,212,maxColorValue=255))
}
if(col==6){
return(rgb(65,196,221,maxColorValue=255))
}
if(col==7){
return(rgb(126,34,113,maxColorValue=255))
}
if(col==8){
return(rgb(239,106,191,maxColorValue=255))
}
if(col==9){
return(rgb(205,88,6,maxColorValue=255))
}
if(col==10){
return(rgb(235,171,0,maxColorValue=255))
}
}

if(tint==2){
if(col==1){
return(rgb(210,204,234,maxColorValue=255))
}
if(col==2){
return(rgb(251,204,232,maxColorValue=255))
}
if(col==3){
return(rgb(204,224,226,maxColorValue=255))
}
if(col==4){
return(rgb(210,236,213,maxColorValue=255))
}
if(col==5){
return(rgb(204,208,246,maxColorValue=255))
}
if(col==6){
return(rgb(217,243,248,maxColorValue=255))
}
if(col==7){
return(rgb(229,211,227,maxColorValue=255))
}
if(col==8){
return(rgb(252,225,242,maxColorValue=255))
}
if(col==9){
return(rgb(245,222,205,maxColorValue=255))
}
if(col==10){
return(rgb(251,238,204,maxColorValue=255))
}
}


if(tint==1){
if(col==1){
return(rgb(229,232,246,maxColorValue=255))
}
if(col==2){
return(rgb(251,229,241,maxColorValue=255))
}
if(col==3){
return(rgb(229,239,240,maxColorValue=255))
}
if(col==4){
return(rgb(231,247,233,maxColorValue=255))
}
if(col==5){
return(rgb(229,241,251,maxColorValue=255))
}
if(col==6){
return(rgb(229,249,252,maxColorValue=255))
}
if(col==7){
return(rgb(242,232,241,maxColorValue=255))
}
if(col==8){
return(rgb(253,240,248,maxColorValue=255))
}
if(col==9){
return(rgb(250,238,230,maxColorValue=255))
}
if(col==10){
return(rgb(253,246,229,maxColorValue=255))
}
}
}