Custom palette

app.R

@@ -203,6 +203,9 @@ server <- function(input, output, session) {
   print("Loading data")
 
   dataStorage <- "data/"
+  
+  palette <- c("firebrick", "coral", "rosybrown", "tan", "salmon",  "olivedrab", "seagreen", "aquamarine",  "darkcyan",  "dodgerblue",  "steelblue",   "royalblue")
+  
 
   models <- NULL
   pressures <- NULL
@@ -500,8 +503,7 @@ server <- function(input, output, session) {
 
     nodeSpacing <- ifelse(.selections$bbnNames, 600, 150)
 
-    palette <- brewer.pal(nrow(model$legend), "Set3")
+    
-
     nodes <- data.frame(
       id = rownames(nodes),
       label = labels,
@@ -539,6 +541,7 @@ server <- function(input, output, session) {
       edgeNet <- edges
     }
     
+    
 
     legendDF <- data.frame(
       id = 1:nrow(model$legend),
@@ -573,10 +576,13 @@ server <- function(input, output, session) {
   genPlot <- function(boxPlot, title, paletteLength) {
     if (nrow(boxPlot) > 0) {
       
-      print(paste('Palette length', paletteLength))
+      #print(paste('Palette length', paletteLength))
 
-      palette <- brewer.pal(paletteLength,  "Set3")
+      #palette <- brewer.pal(paletteLength,  "Set3")
-      names(palette) <- 1:paletteLength
+      
+      #palette <- c("red", "sienna3", "plum2", "rosybrown4",  "sandybrown", "yellow", "seashell3", "palegreen", "springgreen4",  "steelblue",   "azure")
+      
+      names(palette) <- 1:length(palette)
 
       #print(paste("Box plot, colours", nrow(boxPlot), length(colours)))
       #cat(colours)