multi-axes

1b4662a6 · Midoux Cedric · 5406c9c5 · 1b4662a6
Commit 1b4662a6 authored 7 years ago by Midoux Cedric
Hide whitespace changes
Inline Side-by-side

Showing

with 13 additions and 3 deletions
+13 -3
--- a/server.R
+++ b/server.R
@@ -719,6 +719,13 @@ shinyServer
      title = "Setting : " ,
      width = NULL,
      status = "primary",
+      checkboxGroupInput(
+        "acpAxes",
+        label = "Axes : ",
+        choices = seq(10),
+        selected = c(1, 2),
+        inline = TRUE
+      ),
      selectInput(
        "acpDist",
        label = "Distance : ",
@@ -768,8 +775,10 @@ shinyServer
  })
  output$acp <- renderPlot({
-    validate(need(data16S(),
+    validate(
-                  "Requires an abundance dataset"))
+      need(data16S(), "Requires an abundance dataset"),
+      need(length(input$acpAxes) == 2, "Requires two projections axes")
+    )
    p <- plot_samples(
      data16S(),
      ordination = ordinate(
@@ -777,7 +786,8 @@ shinyServer
        method = input$acpMethod,
        distance = input$acpDist
      ),
-      axes = c(1, 2),
+      axes = as.numeric(input$acpAxes),
+      #c(1, 2),
      color = checkNull(input$acpCol),
      replicate = checkNull(input$acpRep),
      shape = checkNull(input$acpShape),