From 22b25c9b8380f0c4c35cd2ef0bd2e9932bdc4f77 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Sun, 19 Sep 2021 09:57:27 +0200
Subject: [PATCH] Fix cluster length slider

---
 server.R | 2 +-
 ui.R     | 5 ++---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/server.R b/server.R
index 785efd4..251fae7 100644
--- a/server.R
+++ b/server.R
@@ -29,7 +29,7 @@ server <- function(input, output) {
 
         cluster_max <- results[, max(cluster_length)]
         results[, cluster_score := cluster_length / cluster_max]
-        
+
         results[, score := input$clustering / 100 * cluster_score +
             input$correlation / 100 * r_mean]
 
diff --git a/ui.R b/ui.R
index 58b3afd..625a1b6 100644
--- a/ui.R
+++ b/ui.R
@@ -27,9 +27,8 @@ ui <- fluidPage(
                 "length",
                 "Minimum cluster size",
                 min = 0,
-                max = 50,
-                value = c(0, 15),
-                step = 0.1
+                max = 30,
+                value = 10
             )
         ),
         wellPanel(