From 7e9b32d1d9805fa20003766cd926aa524ac88d1b Mon Sep 17 00:00:00 2001
From: khabatv <61308485+khabatv@users.noreply.github.com>
Date: Fri, 1 Mar 2024 13:26:21 +0100
Subject: [PATCH] Update Plots.R temp fix for limited color issue

adding more colors
---
 R/Plots.R | 234 ++++++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 208 insertions(+), 26 deletions(-)

diff --git a/R/Plots.R b/R/Plots.R
index 1aa4479..ef3f8aa 100644
--- a/R/Plots.R
+++ b/R/Plots.R
@@ -4610,26 +4610,105 @@ colorPalette2 <- function(){
   
   #palette <- palette(c(
   palette <- c(
-    rgb(184, 88,184, maxColorValue=255),
-    rgb(102,178, 48, maxColorValue=255),
-    rgb(220, 64, 59, maxColorValue=255),
-    rgb( 78,167,149, maxColorValue=255),
-    rgb(117, 79, 33, maxColorValue=255),
-    rgb(131, 59, 93, maxColorValue=255),
-    rgb(116,159,202, maxColorValue=255),
-    rgb(176,158, 56, maxColorValue=255),
-    rgb(114,119,221, maxColorValue=255),
-    rgb(219,119, 40, maxColorValue=255),
-    rgb( 72,101, 46, maxColorValue=255),
-    rgb(213, 66,135, maxColorValue=255),
-    rgb( 70, 91,112, maxColorValue=255),
-    rgb(213,115,121, maxColorValue=255),
-    rgb( 91, 76,141, maxColorValue=255),
-    rgb(198,137,190, maxColorValue=255),
-    rgb( 98,175,100, maxColorValue=255),
-    rgb(146, 56, 45, maxColorValue=255),
-    rgb(207, 78,219, maxColorValue=255),
-    rgb(206,136, 82, maxColorValue=255)
+    rgb(150, 90, 180, maxColorValue=255),
+    rgb(190, 80, 190, maxColorValue=255),
+    rgb(170, 100, 180, maxColorValue=255),
+    rgb(180, 80, 200, maxColorValue=255),
+    rgb(160, 90, 190, maxColorValue=255),
+    rgb(200, 70, 180, maxColorValue=255),
+    rgb(140, 110, 170, maxColorValue=255),
+    rgb(210, 60, 190, maxColorValue=255),
+    rgb(130, 120, 160, maxColorValue=255),
+    rgb(220, 50, 200, maxColorValue=255),
+    rgb(120, 130, 150, maxColorValue=255),
+    rgb(230, 40, 190, maxColorValue=255),
+    rgb(110, 140, 140, maxColorValue=255),
+    rgb(240, 30, 180, maxColorValue=255),
+    rgb(100, 150, 130, maxColorValue=255),
+    rgb(250, 20, 170, maxColorValue=255),
+    rgb(90, 160, 120, maxColorValue=255),
+    rgb(260, 10, 160, maxColorValue=255),
+    rgb(80, 170, 110, maxColorValue=255),
+    rgb(270, 0, 150, maxColorValue=255),
+    rgb(70, 180, 100, maxColorValue=255),
+    rgb(280, 10, 140, maxColorValue=255),
+    rgb(60, 190, 90, maxColorValue=255),
+    rgb(290, 20, 130, maxColorValue=255),
+    rgb(50, 200, 80, maxColorValue=255),
+    rgb(300, 30, 120, maxColorValue=255),
+    rgb(40, 210, 70, maxColorValue=255),
+    rgb(310, 40, 110, maxColorValue=255),
+    rgb(30, 220, 60, maxColorValue=255),
+    rgb(320, 50, 100, maxColorValue=255),
+    rgb(20, 230, 50, maxColorValue=255),
+    rgb(330, 60, 90, maxColorValue=255),
+    rgb(10, 240, 40, maxColorValue=255),
+    rgb(340, 70, 80, maxColorValue=255),
+    rgb(0, 250, 30, maxColorValue=255),
+    rgb(350, 80, 70, maxColorValue=255),
+    rgb(0, 255, 20, maxColorValue=255),
+    rgb(360, 90, 60, maxColorValue=255),
+    rgb(10, 250, 10, maxColorValue=255),
+    rgb(350, 100, 70, maxColorValue=255),
+    rgb(20, 240, 0, maxColorValue=255),
+    rgb(340, 110, 80, maxColorValue=255),
+    rgb(30, 230, 10, maxColorValue=255),
+    rgb(330, 120, 90, maxColorValue=255),
+    rgb(40, 220, 20, maxColorValue=255),
+    rgb(320, 130, 100, maxColorValue=255),
+    rgb(50, 210, 30, maxColorValue=255),
+    rgb(310, 140, 110, maxColorValue=255),
+    rgb(60, 200, 40, maxColorValue=255),
+    rgb(300, 150, 120, maxColorValue=255),
+    rgb(70, 190, 50, maxColorValue=255),
+    rgb(290, 160, 130, maxColorValue=255),
+    rgb(80, 180, 60, maxColorValue=255),
+    rgb(280, 170, 140, maxColorValue=255),
+    rgb(90, 170, 70, maxColorValue=255),
+    rgb(270, 180, 150, maxColorValue=255),
+    rgb(100, 160, 80, maxColorValue=255),
+    rgb(260, 190, 160, maxColorValue=255),
+    rgb(110, 150, 90, maxColorValue=255),
+    rgb(250, 200, 170, maxColorValue=255),
+    rgb(120, 140, 100, maxColorValue=255),
+    rgb(240, 210, 180, maxColorValue=255),
+    rgb(130, 130, 110, maxColorValue=255),
+    rgb(230, 220, 190, maxColorValue=255),
+    rgb(140, 120, 120, maxColorValue=255),
+    rgb(220, 230, 200, maxColorValue=255),
+    rgb(150, 110, 130, maxColorValue=255),
+    rgb(210, 240, 210, maxColorValue=255),
+    rgb(160, 100, 140, maxColorValue=255),
+    rgb(200, 250, 220, maxColorValue=255),
+    rgb(170, 90, 150, maxColorValue=255),
+    rgb(190, 260, 230, maxColorValue=255),
+    rgb(180, 80, 160, maxColorValue=255),
+    rgb(180, 270, 240, maxColorValue=255),
+    rgb(190, 70, 170, maxColorValue=255),
+    rgb(170, 280, 250, maxColorValue=255),
+    rgb(200, 60, 180, maxColorValue=255),
+    rgb(160, 290, 260, maxColorValue=255),
+    rgb(210, 50, 190, maxColorValue=255),
+    rgb(150, 300, 270, maxColorValue=255),
+    rgb(220, 40, 200, maxColorValue=255),
+    rgb(140, 310, 280, maxColorValue=255),
+    rgb(230, 30, 190, maxColorValue=255),
+    rgb(130, 320, 290, maxColorValue=255),
+    rgb(240, 20, 180, maxColorValue=255),
+    rgb(120, 330, 300, maxColorValue=255),
+    rgb(250, 10, 170, maxColorValue=255),
+    rgb(110, 340, 310, maxColorValue=255),
+    rgb(260, 0, 160, maxColorValue=255),
+    rgb(100, 350, 320, maxColorValue=255),
+    rgb(270, 10, 150, maxColorValue=255),
+    rgb(90, 360, 330, maxColorValue=255),
+    rgb(280, 20, 140, maxColorValue=255),
+    rgb(80, 370, 340, maxColorValue=255),
+    rgb(290, 30, 130, maxColorValue=255),
+    rgb(70, 380, 350, maxColorValue=255),
+    rgb(300, 40, 120, maxColorValue=255),
+    rgb(60, 390, 360, maxColorValue=255),
+    rgb(310, 50, 110, maxColorValue=255)
   )
   #))
   return(palette)
@@ -4644,17 +4723,17 @@ colorPalette <- function(){
     "deepskyblue",
     "orange",
     "deeppink",
-    "aquamarine",##
-    "burlywood", 
+    "aquamarine",
+    "burlywood",
     "cadetblue",
     "coral",
     "cornflowerblue",
-    "cyan",##
+    "cyan",
     "darkblue",
     "firebrick",
     "goldenrod",
     "indianred",
-    "khaki",##
+    "khaki",
     "magenta",
     "maroon",
     "beige",
@@ -4662,12 +4741,115 @@ colorPalette <- function(){
     "olivedrab",
     "orangered",
     "orchid",
-    "paleturquoise3",##
+    "paleturquoise3",
     "rosybrown",
     "salmon",
     "seagreen3",
     "skyblue",
-    "steelblue"
+    "steelblue",
+    "darkgoldenrod",
+    "darkgreen",
+    "darkkhaki",
+    "darkmagenta",
+    "darkolivegreen",
+    "darkorange",
+    "darkorchid",
+    "darkred",
+    "darksalmon",
+    "darkseagreen",
+    "darkslateblue",
+    "darkslategray",
+    "darkturquoise",
+    "darkviolet",
+    "deepskyblue",
+    "dimgray",
+    "dodgerblue",
+    "firebrick",
+    "forestgreen",
+    "gold",
+    "goldenrod",
+    "gray",
+    "green",
+    "greenyellow",
+    "hotpink",
+    "indianred",
+    "khaki",
+    "lavender",
+    "lavenderblush",
+    "lawngreen",
+    "lemonchiffon",
+    "lightblue",
+    "lightcoral",
+    "lightcyan",
+    "lightgoldenrodyellow",
+    "lightgray",
+    "lightgreen",
+    "lightpink",
+    "lightsalmon",
+    "lightseagreen",
+    "lightskyblue",
+    "lightslategray",
+    "lightsteelblue",
+    "lightyellow",
+    "limegreen",
+    "linen",
+    "magenta",
+    "maroon",
+    "mediumaquamarine",
+    "mediumblue",
+    "mediumorchid",
+    "mediumpurple",
+    "mediumseagreen",
+    "mediumslateblue",
+    "mediumspringgreen",
+    "mediumturquoise",
+    "mediumvioletred",
+    "midnightblue",
+    "mintcream",
+    "mistyrose",
+    "moccasin",
+    "navajowhite",
+    "navy",
+    "oldlace",
+    "olivedrab",
+    "orange",
+    "orangered",
+    "orchid",
+    "palegoldenrod",
+    "palegreen",
+    "paleturquoise",
+    "palevioletred",
+    "papayawhip",
+    "peachpuff",
+    "peru",
+    "pink",
+    "plum",
+    "powderblue",
+    "purple",
+    "red",
+    "rosybrown",
+    "royalblue",
+    "saddlebrown",
+    "salmon",
+    "sandybrown",
+    "seagreen",
+    "sienna",
+    "skyblue",
+    "slateblue",
+    "slategray",
+    "snow",
+    "springgreen",
+    "steelblue",
+    "tan",
+    "thistle",
+    "tomato",
+    "turquoise",
+    "violet",
+    "wheat",
+    "white",
+    "whitesmoke",
+    "yellow",
+    "yellowgreen"
   )
   return(palette)
 }