R/customColors.R

In HajkD/LTRpred: De novo functional annotation of retrotransposons

customColors <- function(n) {
  cols <-
    c(
      "#89C5DA",
      "#DA5724",
      "#74D944",
      "#CE50CA",
      "#3F4921",
      "#C0717C",
      "#CBD588",
      "#5F7FC7",
      "#673770",
      "#D3D93E",
      "#38333E",
      "#508578",
      "#D7C1B1",
      "#689030",
      "#AD6F3B",
      "#CD9BCD",
      "#D14285",
      "#6DDE88",
      "#652926",
      "#7FDCC0",
      "#C84248",
      "#8569D5",
      "#5E738F",
      "#D1A33D",
      "#8A7C64",
      "#599861"
    )
  return(cols[1:n])
}