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

Add initial controls to the explore page

Browse source
This commit is contained in:
Elias Projahn 2022-05-10 11:33:49 +02:00
parent be1a4ef2fd
commit 06de28a92b
2 changed files with 82 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

26
R/ui.R
View file

@ -13,9 +13,35 @@ ui <- function() {
sidebarLayout(
sidebarPanel(
width = 3,
h3("Criteria"),
sliderInput(
"above_median",
"Expressed above median",
min = -1.0,
max = 1.0,
step = 0.01,
value = 1.0
),
sliderInput(
"mean_expression",
"Mean expression",
min = -1.0,
max = 1.0,
step = 0.01,
value = 1.0
),
sliderInput(
"sd_expression",
"Standard deviation",
min = -1.0,
max = 1.0,
step = 0.01,
value = -1.0
)
),
mainPanel(
width = 9,
DT::dataTableOutput("ranked_data")
)
)
),