mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
53 lines
No EOL
1.3 KiB
R
53 lines
No EOL
1.3 KiB
R
library(DT)
|
|
library(shiny)
|
|
|
|
ui <- fluidPage(
|
|
titlePanel("TPE-OLD candidates"),
|
|
sidebarLayout(
|
|
position = "right",
|
|
sidebarPanel(
|
|
h3("Candidate selection"),
|
|
selectInput(
|
|
"species",
|
|
"Species to include",
|
|
choices = list(
|
|
"All qualified" = "all",
|
|
"Replicatively aging" = "replicative"
|
|
)
|
|
),
|
|
sliderInput(
|
|
"range",
|
|
"Gene position (Mbp)",
|
|
min = 0,
|
|
max = 50,
|
|
value = c(0, 15),
|
|
step = 0.1
|
|
),
|
|
sliderInput(
|
|
"length",
|
|
"Minimum cluster size",
|
|
min = 0,
|
|
max = 30,
|
|
value = 10
|
|
),
|
|
div(
|
|
style = "overflow-x: auto",
|
|
DTOutput("genes")
|
|
),
|
|
width = 3
|
|
),
|
|
mainPanel(
|
|
div(
|
|
style = "overflow-x: auto",
|
|
div(
|
|
style = "min-width: 1400px",
|
|
plotOutput(
|
|
"scatter",
|
|
width = "100%",
|
|
height = "600px"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
) |