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

Organize output in tabs

Browse source
This commit is contained in:
Elias Projahn 2021-10-15 13:59:00 +02:00
parent 527ba01cc9
commit aaff5878ec
2 changed files with 50 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

83
ui.R
View file

@ -48,43 +48,52 @@ ui <- fluidPage(
),
),
mainPanel(
h3("Gene ranks"),
plotlyOutput(
"rank_plot",
width = "100%",
height = "600px"
),
h3("Results"),
textOutput("synposis"),
div(
style = "margin-top: 16px",
uiOutput("copy")
),
div(
style = "margin-top: 16px",
DTOutput("genes")
),
h3("Gene positions"),
p("This plot shows the selected genes' distance to the telomeres \
across species. It visualizes how certain genes have \
evolutionary conserved positions."),
plotlyOutput(
"scatter",
width = "100%",
height = "600px"
),
h3("Gene set enrichment analysis"),
checkboxInput(
"enable_gost",
"Perform a gene set enrichment analysis on the filtered result \
genes."
),
conditionalPanel(
"input.enable_gost == true",
plotlyOutput(
"gost",
width = "100%",
height = "600px"
tabsetPanel(
type = "pills",
header = div(style = "margin-top: 16px"),
tabPanel(
"Results",
textOutput("synposis"),
div(
style = "margin-top: 16px",
uiOutput("copy")
),
div(
style = "margin-top: 16px",
DTOutput("genes", height = "1000px")
)
),
tabPanel(
"Positions",
plotlyOutput(
"scatter",
width = "100%",
height = "600px"
)
),
tabPanel(
"Ranks",
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",
plotlyOutput(
"gost",
width = "100%",
height = "600px"
)
)
)
)
)