R/pickcolors.R

In RPMG: Graphical User Interface (GUI) for Interactive R Analysis Sessions

`pickcolors` <-
  function(COLLIST=colors(), BACK="white")
  {
    if(missing(COLLIST)) { COLLIST=colors() }
    if(missing(BACK)) {  BACK="white" }

    ncol=5
    cex  = 1
    if(length(COLLIST)>50)
      {
        ncol=15
        cex=.6
      }
    
    DF = SELOPT(COLLIST,  onoff=-1, ncol=ncol, ocols =COLLIST, cex=.6 )

##    cat("thecols=")
##     cat

PDF = paste(sep="", "\"", paste(DF, collapse="\",\""), "\"")
    
    cat(file="Copy and paste this into your R session:","\n")
 cat(file="","\n")

  cat(file="",paste(sep="", "thecols", "=c(", PDF , ")") , fill=TRUE)
  cat(file="","\n")

    
    if(!is.null(DF))
      {
        return(DF)
      }
    else
      {
        return(NULL)
      }
    
  }