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

Generalize method definitions

Browse source
This commit is contained in:
Elias Projahn 2021-10-15 09:26:57 +02:00
parent d3edeefbe2
commit 9b0b3c13f5
7 changed files with 137 additions and 169 deletions
Download patch file Download diff file Expand all files Collapse all files

40
ui.R
View file

@ -3,6 +3,8 @@ library(plotly)
library(rclipboard)
library(shiny)
source("methods.R")
ui <- fluidPage(
rclipboardSetup(),
titlePanel("TPE-OLD candidates"),
@ -22,33 +24,17 @@ ui <- fluidPage(
),
wellPanel(
h3("Ranking"),
sliderInput(
"clusteriness",
"Clustering of genes",
post = "%",
min = 0,
max = 100,
step = 1,
value = 58
),
sliderInput(
"correlation",
"Correlation with known genes",
post = "%",
min = 0,
max = 100,
step = 1,
value = 36
),
sliderInput(
"neural",
"Assessment by neural network",
post = "%",
min = 0,
max = 100,
step = 1,
value = 6
),
lapply(methods, function(method) {
sliderInput(
method$id,
method$description,
post = "%",
min = 0,
max = 100,
step = 1,
value = 100
)
}),
sliderInput(
"cutoff",
"Cut-off score",