R/getcolors.R

getcolors <- function(col, len) {

  if(length(col) == 1) {
    if(tolower(col) == "r")
      col <- rainbow(len)
  }
  return(rep(col, length.out = len))
}
talbano/rwinsteps documentation built on May 24, 2019, 7:31 a.m.