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

Convert to R package

Browse source
This commit is contained in:
Elias Projahn 2021-10-20 15:34:52 +02:00
parent b2e2dbf1af
commit d4611f47cf
15 changed files with 799 additions and 114 deletions
Download patch file Download diff file Expand all files Collapse all files

80
R/ui.R Normal file
View file

@ -0,0 +1,80 @@
ui <- fluidPage(
shinyjs::useShinyjs(),
rclipboard::rclipboardSetup(),
titlePanel("TPE-OLD candidates"),
sidebarLayout(
sidebarPanel(
width = 3,
h3("Filter criteria"),
selectInput(
"species",
"Species to include",
choices = list(
"Replicatively aging" = "replicative",
"All qualified" = "all"
)
),
uiOutput("n_species_slider"),
sliderInput(
"cutoff",
"Cut-off score",
post = "%",
min = 0,
max = 100,
step = 1,
value = 50
),
methods_ui("methods")
),
mainPanel(
tabsetPanel(
type = "pills",
header = div(style = "margin-top: 16px"),
tabPanel(
"Results",
uiOutput("copy"),
div(
style = "margin-top: 16px",
DT::DTOutput("genes", height = "1000px")
)
),
tabPanel(
"Positions",
plotly::plotlyOutput(
"scatter",
width = "100%",
height = "600px"
)
),
tabPanel(
"Assessment",
htmlOutput("assessment_synopsis"),
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
"rank_plot",
width = "100%",
height = "600px"
)
),
),
tabPanel(
"Analysis",
checkboxInput(
"enable_gost",
"Perform a gene set enrichment analysis on the \
filtered result genes."
),
conditionalPanel(
"input.enable_gost == true",
plotly::plotlyOutput(
"gost",
width = "100%",
height = "600px"
)
)
)
)
)
)
)