Add weighted ranking

2025-10-26 11:17:24 +01:00 · 2021-09-18 23:33:37 +02:00 · 2021-09-18 23:33:37 +02:00 · 03be4bfe5d
commit 03be4bfe5d
parent 9d6b2e4d50
2 changed files with 44 additions and 5 deletions
--- a/ui.R
+++ b/ui.R
@ -27,8 +27,30 @@ ui <- fluidPage(
                "length",
                "Minimum cluster size",
                min = 0,
-                max = 30,
-                value = 10
+                max = 50,
+                value = c(0, 15),
+                step = 0.1
+            )
+        ),
+        wellPanel(
+            h3("Ranking"),
+            sliderInput(
+                "clustering",
+                "Size of largest cluster",
+                post = "%",
+                min = 0,
+                max = 100,
+                step = 1,
+                value = 100
+            ),
+            sliderInput(
+                "correlation",
+                "Correlation with known genes",
+                post = "%",
+                min = 0,
+                max = 100,
+                step = 1,
+                value = 100
            )
        ),
        wellPanel(