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

acp label

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