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

Update UI with navbar and selectize

Browse source
This commit is contained in:
Elias Projahn 2021-12-08 13:46:59 +01:00
parent b6e1bc6603
commit f318cde5e7
5 changed files with 133 additions and 164 deletions
Download patch file Download diff file Expand all files Collapse all files

130
R/ui.R
View file

@ -1,38 +1,42 @@
ui <- fluidPage(
ui <- div(
shinyjs::useShinyjs(),
rclipboard::rclipboardSetup(),
titlePanel("TPE-OLD candidates"),
sidebarLayout(
sidebarPanel(
width = 3,
preset_editor_ui("preset_editor"),
comparison_editor_ui("comparison_editor"),
filters_ui("filters"),
methods_ui("methods")
navbarPage(
theme = bslib::bs_theme(
version = 3,
bootswatch = "united",
primary = "#1c71d8"
),
mainPanel(
tabsetPanel(
type = "pills",
header = div(style = "margin-top: 16px"),
tabPanel(
"Results",
uiOutput("copy"),
div(
style = "margin-top: 16px",
DT::DTOutput("genes")
)
title = "TPE-OLD candidates",
selected = "Ranking",
tabPanel(
"Input data",
sidebarLayout(
sidebarPanel(
width = 3,
preset_editor_ui("preset_editor"),
comparison_editor_ui("comparison_editor")
),
tabPanel(
"Input Data",
mainPanel(
width = 9,
plotly::plotlyOutput(
"scatter",
width = "100%",
height = "600px"
)
)
),
),
tabPanel(
"Ranking",
sidebarLayout(
sidebarPanel(
width = 3,
methods_ui("methods"),
filters_ui("filters")
),
tabPanel(
"Assessment",
htmlOutput("assessment_synopsis"),
mainPanel(
width = 9,
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
@ -49,38 +53,50 @@ ui <- fluidPage(
height = "600px"
)
),
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
"boxplot",
width = "100%",
height = "600px"
)
),
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
"chromosome_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"
)
)
)
),
),
tabPanel(
"Detailed results",
uiOutput("copy"),
div(
style = "margin-top: 16px",
DT::DTOutput("genes")
)
),
tabPanel(
"Assessment",
htmlOutput("assessment_synopsis"),
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
"boxplot",
width = "100%",
height = "600px"
)
),
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
"chromosome_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"
)
)
)