fix colour palette length effectively harcoded

giocomai · Jan 21, 2024 · 4809f25 · 4809f25
1 parent 6f7a438
commit 4809f25
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ganttrify.R b/R/ganttrify.R
@@ -79,7 +79,7 @@ ganttrify <- function(project,
                       axis_text_align = "right") {
 
   # repeat colours if not enough colours given
-  if (length(unique(project$wp))>length(as.character(wesanderson::wes_palette("Darjeeling1")))) {
+  if (length(unique(project$wp))>length(as.character(colour_palette))) {
     colour_palette <- rep(colour_palette, length(unique(project$wp)))[1:length(unique(project$wp))]
   }