johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix cluster length slider

Browse source
This commit is contained in:
Elias Projahn 2021-09-19 09:57:27 +02:00
parent 03be4bfe5d
commit 22b25c9b83
2 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
server.R
View file

@ -29,7 +29,7 @@ server <- function(input, output) {
cluster_max <- results[, max(cluster_length)] cluster_max <- results[, max(cluster_length)]
results[, cluster_score := cluster_length / cluster_max] results[, cluster_score := cluster_length / cluster_max]
results[, score := input$clustering / 100 * cluster_score + results[, score := input$clustering / 100 * cluster_score +
input$correlation / 100 * r_mean] input$correlation / 100 * r_mean]

5
ui.R
View file

@ -27,9 +27,8 @@ ui <- fluidPage(
"length", "length",
"Minimum cluster size", "Minimum cluster size",
min = 0, min = 0,
max = 50, max = 30,
value = c(0, 15), value = 10
step = 0.1
) )
), ),
wellPanel( wellPanel(