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

User interface and style improvements

Browse source
This commit is contained in:
Elias Projahn 2022-08-18 12:21:00 +02:00
parent 447fdfab4f
commit 6938cb0d84
7 changed files with 62 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

56
R/results.R
View file

@ -37,7 +37,22 @@ results_ui <- function(id, options) {
)
),
tabPanel(
title = "Method comparison",
title = "Gene sets",
div(
style = "margin-top: 16px",
htmlOutput(NS(id, "comparison_text")),
div(
style = "margin-top: 16px;",
plotly::plotlyOutput(
NS(id, "boxplot"),
width = "100%",
height = "600px"
)
)
)
),
tabPanel(
title = "Methods",
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
@ -100,29 +115,6 @@ results_ui <- function(id, options) {
height = "600px"
)
),
tabPanel(
title = "Comparison",
div(
style = "margin-top: 16px",
htmlOutput(NS(id, "comparison_text")),
plotly::plotlyOutput(
NS(id, "boxplot"),
width = "100%",
height = "600px"
)
)
),
tabPanel(
title = "Ortholog locations",
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
NS(id, "gene_locations_plot"),
width = "100%",
height = "1200px"
)
)
),
tabPanel(
title = "Scores by position",
div(
@ -143,6 +135,17 @@ results_ui <- function(id, options) {
)
)
),
tabPanel(
title = "Ortholog locations",
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
NS(id, "gene_locations_plot"),
width = "100%",
height = "1200px"
)
)
),
tabPanel(
title = "Detailed results",
details_ui(NS(id, "results"))
@ -330,7 +333,10 @@ results_server <- function(id, options, analysis) {
if (!is.null(comparison)) {
div(
reference_div,
div(HTML(comparison_text("comparison genes", comparison)))
div(
style = "margin-top: 16px;",
HTML(comparison_text("comparison genes", comparison))
)
)
} else {
reference_div