Commit cf03bee9 authored by svolant's avatar svolant
Browse files

Modif ordre export barplotd3

parent 40da85aa
......@@ -75,6 +75,7 @@ Plot_Visu_Barplot <- function(input,resDiff)
"#c49c94","#e377c2","#f7b6d2","#7f7f7f", "#c7c7c7","#bcbd22","#dbdb8d","#17becf","#9edae5"),ceiling(nbKept/20))
dataBarPlot_mat$Taxonomy = factor(dataBarPlot_mat$Taxonomy,levels = namesTax)
dataBarPlot_mat$AllVar = factor(dataBarPlot_mat$AllVar,levels = unique(dataBarPlot_mat$AllVar))
gg= ggplot(dataBarPlot_mat, aes(x=AllVar, y=Proportions, fill=Taxonomy))
gg= gg + geom_bar(stat="identity")
......
......@@ -444,7 +444,6 @@ shinyServer(function(input, output,session) {
output$SelectInterestVar <- renderUI({
target=dataInputTarget()$target
print(target)
if(!is.null(target))
{
namesTarget = colnames(target)[2:ncol(target)]
......
Supports Markdown
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