acp label

server.R

@@ -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))