Display score and add cut-off filter

2025-10-26 11:17:24 +01:00 · 2021-09-30 13:25:39 +02:00 · 2021-09-30 13:25:39 +02:00 · 8fc743fe10
commit 8fc743fe10
parent 91c15045cf
2 changed files with 28 additions and 6 deletions
--- a/ui.R
+++ b/ui.R
@ -25,7 +25,7 @@ ui <- fluidPage(
                min = 0,
                max = 100,
                step = 1,
-                value = 50
+                value = 100
            ),
            sliderInput(
                "correlation",
@ -35,6 +35,15 @@ ui <- fluidPage(
                max = 100,
                step = 1,
                value = 100
+            ),
+            sliderInput(
+                "cutoff",
+                "Cut-off score",
+                post = "%",
+                min = 0,
+                max = 100,
+                step = 1,
+                value = 50
            )
        ),
        wellPanel(