Merge pull request #22 from jiajic/dev

Update color_palettes.R
drieslab · Nov 7, 2023 · 202e1a2 · 202e1a2
2 parents 1bd59c0 + 53ca6ca
commit 202e1a2
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)