From 4809f25aaaf44e0393a9b2a4965af7b29e124f2a Mon Sep 17 00:00:00 2001
From: Giorgio Comai <g@giorgiocomai.eu>
Date: Sun, 21 Jan 2024 22:33:37 +0100
Subject: [PATCH] fix colour palette length effectively harcoded

---
 R/ganttrify.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/ganttrify.R b/R/ganttrify.R
index 41b688f..7ac028d 100644
--- 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))]
   }