Add basic filters to the UI

2025-10-26 11:17:24 +01:00 · 2021-08-26 11:20:50 +02:00 · 2021-08-26 11:20:50 +02:00 · 1c43433600
commit 1c43433600
parent d3151957a3
2 changed files with 26 additions and 6 deletions
--- a/ui.R
+++ b/ui.R
@ -7,6 +7,21 @@ ui <- fluidPage(
        position = "right",
        sidebarPanel(
            h3("Candidate selection"),
+            sliderInput(
+                "range",
+                "Gene position (Mbp)",
+                min = 0,
+                max = 50,
+                value = c(0, 15),
+                step = 0.1
+            ),
+            sliderInput(
+                "length",
+                "Minimum cluster size",
+                min = 0,
+                max = 30,
+                value = 10
+            ),
            DTOutput("genes"),
            width = 3
        ),