Merge pull request #23 from drieslab/dev

Dev
drieslab · Nov 7, 2023 · 7610aae · 7610aae
2 parents 74c8429 + 202e1a2
commit 7610aae
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/color_palettes.R b/R/color_palettes.R
@@ -139,6 +139,8 @@ getDistinctColors <- function(n) {
     # if too many colors warn about recycling
     if(n > length(broad_colors)) {
       warning('\n not enough unique colors in R, maximum = 444 \n')
+      set.seed(1234)
+      on.exit(set.seed(Sys.time()))
       col_vector = sample(x = broad_colors, size = n, replace = TRUE)
     } else {
       col_vector = sample(x = broad_colors, size = n, replace = FALSE)