Fix cluster length slider

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]
 

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(