johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-25 20:07:23 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

results: Add some information labels

Browse source
This commit is contained in:
Elias Projahn 2024-02-18 15:11:46 +01:00
parent d23646e0a9
commit a3fc56d17e
2 changed files with 59 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

59
R/results.R
View file

@ -39,20 +39,27 @@ results_ui <- function(id, options) {
tabPanel(
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"
)
style = "margin: 1rem",
htmlOutput(NS(id, "comparison_text"))
),
div(
style = "margin-top: 16px;",
plotly::plotlyOutput(
NS(id, "boxplot"),
width = "100%",
height = "600px"
)
)
),
tabPanel(
title = "Methods",
info(paste0(
"This plot compares the results of the individual methods with ",
"the combined ranking. It shows a condensed version of the ",
"overview plot for each method. The thickness of each graph ",
"represents the distribution of scores for each ranking (violin ",
"plot)."
)),
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
@ -64,9 +71,16 @@ results_ui <- function(id, options) {
),
tabPanel(
title = "Method correlation",
info(paste0(
"This plot visualizes the correlation between different methods. ",
"You can use the controls below to select two methods to ",
"compare. By default, a random sample of genes is used to make ",
"the visualization easier to interpret. This behavior can be ",
"disabled by clicking the checkbox."
)),
div(
class = "flow-layout",
style = "margin-top: 16px",
style = "margin: 1rem",
selectInput(
NS(id, "ranking_y"),
label = NULL,
@ -109,7 +123,10 @@ results_ui <- function(id, options) {
)
)
),
htmlOutput(NS(id, "method_correlation")),
div(
style = "margin: 1rem",
htmlOutput(NS(id, "method_correlation"))
),
plotly::plotlyOutput(
NS(id, "ranking_correlation_plot"),
width = "100%",
@ -118,9 +135,14 @@ results_ui <- function(id, options) {
),
tabPanel(
title = "Scores by position",
info(paste0(
"This page combines different visualizations of the distribution ",
"of scores by chromosomal position. Use the menu below to switch ",
"from the overview to plots for individual human chromosomes."
)),
div(
class = "flow-layout",
style = "margin-top: 16px",
style = "margin: 1rem",
selectInput(
NS(id, "positions_plot_chromosome_name"),
label = NULL,
@ -131,15 +153,20 @@ results_ui <- function(id, options) {
),
chromosome_choices()
)
),
htmlOutput(
NS(id, "positions_plot"),
container = \(...) div(style = "width: 100%; height: 600px", ...)
)
),
htmlOutput(
NS(id, "positions_plot"),
container = \(...) div(style = "width: 100%; height: 600px", ...)
)
),
tabPanel(
title = "Ortholog locations",
info(paste0(
"This plot shows the locations of the selected genes for each ",
"species. The blue line visualizes the largest possible ",
"distance in this species (across all chromosomes)."
)),
div(
style = "margin-top: 16px",
plotly::plotlyOutput(

16
R/utils.R
View file

@ -25,4 +25,20 @@ popover <- function(title, help, child) {
)
)
)
}
#' An information label.
#'
#' @param info Information text.
#'
#' @noRd
info <- function(info) {
div(
style = "display: flex; margin: 1rem",
div(
style = "margin-right: 10px",
bsicons::bs_icon("info-circle")
),
info
)
}