From 231bc957b66cd45b6d32e431728b0b0bb5d65d57 Mon Sep 17 00:00:00 2001
From: Midoux Cedric <cedric.midoux@irstea.fr>
Date: Fri, 17 Apr 2020 16:50:06 +0200
Subject: [PATCH] MDS methods
---
panels/mds-server.R | 8 +++++++-
panels/pca-server.R | 2 +-
2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/panels/mds-server.R b/panels/mds-server.R
index 20d6546..4a72559 100644
--- a/panels/mds-server.R
+++ b/panels/mds-server.R
@@ -29,7 +29,13 @@ output$mdsUI <- renderUI({
"mdsMethod",
label = "Method : ",
selected = "MDS",
- choices = list("DCA", "CCA", "RDA", "CAP", "DPCoA", "NMDS", "MDS", "PCoA")
+ choices = list("DCA (Detrended Correspondence Analysis)" = "DCA",
+ "CCA (Constrained Correspondence Analysis)" = "CCA",
+ "RDA (Redundancy Analysis)" = "RDA",
+ "CAP (Constrained Analysis of Principal Coordinates)" = "CAP",
+ "DPCoA (Double Principle Coordinate Analysis)" = "DPCoA",
+ "NMDS (Non-metric MultiDimenstional Scaling)" = "NMDS",
+ "MDS / PCoA (Principal Coordinate Analysis)" = "MDS")
),
textInput("mdsTitle",
label = "Title : ",
diff --git a/panels/pca-server.R b/panels/pca-server.R
index 10b539a..4fa79f1 100644
--- a/panels/pca-server.R
+++ b/panels/pca-server.R
@@ -61,7 +61,7 @@ output$pcaUI <- renderUI({
),
sliderInput(
"pcaSelect",
- label = "Select top contrib variables : ",
+ label = "Represent top contrib variables : ",
min = 1,
max = ntaxa(physeq()),
value = 50,
--
GitLab