Commit 3fcf4e7f authored by Amine  GHOZLANE's avatar Amine GHOZLANE

Add new color palettes

parent 9bc232d6
Pipeline #42960 passed with stages
in 122 minutes and 24 seconds
......@@ -28,8 +28,11 @@ Plot_diag <- function(input,resDiff,tree,getTable=FALSE)
if(ncol(group)>0 && nrow(counts)>0 && !getTable)
{
colors = rep(c("#1f77b4","#aec7e8","#ff7f0e","#ffbb78", "#2ca02c","#98df8a","#d62728","#ff9896","#9467bd","#c5b0d5","#8c564b",
"#c49c94","#e377c2","#f7b6d2","#7f7f7f", "#c7c7c7","#bcbd22","#dbdb8d","#17becf","#9edae5"),ceiling(nrow(target)/20))
colors = switch(input$colorsdiag,
"shaman-palette1"=rep(c("#1f77b4","#aec7e8","#ff7f0e","#ffbb78", "#2ca02c","#98df8a","#d62728","#ff9896","#9467bd","#c5b0d5","#8c564b",
"#c49c94","#e377c2","#f7b6d2","#7f7f7f", "#c7c7c7","#bcbd22","#dbdb8d","#17becf","#9edae5"),ceiling(nrow(target)/20)),
"shaman-palette2"=rep(c("#4c4c4c", "#bdbdbd", "#ff4cff", "#bc62f4", "#1613ef", "#1391ef", "#ef1340"), ceiling(nrow(target)/7))
)
if(input$DiagPlot=="barplotTot") res = barplotTot(input,counts,group = group, col=colors)
if(input$DiagPlot=="barplotNul") res = barPlotNul(input,counts, group = group, col=colors)
......
......@@ -837,7 +837,7 @@ function(request) {
checkboxInput("modifwidthDiag","Set width",FALSE),
conditionalPanel(condition="input.modifwidthDiag",
sliderInput("widthDiag", "Width",min=100,max=2500,value = 800,step =10)),
selectInput("colorsdiag", label=h6(strong("Gradient of colors")),choices = c("shaman-palette1", "shaman-palette2"),selected = "shaman-palette1"),
conditionalPanel(condition="input.DiagPlot=='clustPlot'",
h6(strong("Layout")),
selectInput("typeHculst", h6("Type"),c("Horizontal"="hori","Fan"="fan")),
......@@ -849,7 +849,6 @@ function(request) {
sliderInput("cexcircle", "Circle size",min=0,max=2,value = 0.9,step =0.1),
sliderInput("cexpoint", "Point size",min=0,max=3,value = 1,step =0.1),
sliderInput("cexstar", "Star height",min=0,max=1,value = 0.95,step =0.1)
),
conditionalPanel(condition="input.DiagPlot=='SfactorsVStot'",
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment