R/getcolors.R

In Rwinsteps: Running Winsteps in R

Defines functions getcolors

Documented in getcolors

getcolors <- function(col, len) {

  if(length(col) == 1) {
    if(tolower(col) == "r")
      col <- rainbow(len)
  }
  return(rep(col, length.out = len))
}

Try the Rwinsteps package in your browser