R/bes_col.R

Defines functions bes_col

#' @export bes_col
bes_col <- function(n=4) {
  if(n>4) {
    n <- 4
  }
  return(c("#2b8578", "#971e63",
    "#5d2c7c","#307890")[1:n])
}
jon-mellon/mellonMisc documentation built on July 4, 2022, 9:51 a.m.