Commit 986713c4 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

acp label

parent eb1e7206
......@@ -27,7 +27,7 @@ shinyServer
options = list(
dom = "lBtip",
pageLength = 10,
lengthMenu = list(c(10, 25, 50, 100, -1), list('10', '25', '50', '100', 'All')),
lengthMenu = list(c(10, 25, 50, 100,-1), list('10', '25', '50', '100', 'All')),
buttons = list(
'colvis',
list(
......@@ -740,6 +740,14 @@ shinyServer
selected = "MDS",
choices = list("DCA", "CCA", "RDA", "CAP", "DPCoA", "NMDS", "MDS", "PCoA")
),
selectInput(
"acpLabel",
label = "Label :",
choices = c(
"..." = 0,
sample_variables(data16S())
)
),
selectInput(
"acpCol",
label = "Couleur :",
......@@ -776,7 +784,8 @@ shinyServer
axes = c(1, 2),
color = checkNull(input$acpCol),
replicate = checkNull(input$acpRep),
shape = checkNull(input$acpShape)
shape = checkNull(input$acpShape),
label = checkNull(input$acpLabel)
)
if (!is.null(checkNull(input$acpEllipse))) {
p <- p + stat_ellipse(aes_string(group = input$acpEllipse))
......
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