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

ui: Switch additional information sections

Browse source
This commit is contained in:
Elias Projahn 2025-02-19 16:45:29 +01:00
parent 185beb8068
commit 03bfb75d99
2 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
R/sysdata.rda
View file

Binary file not shown.

30
R/ui.R
View file

@ -250,6 +250,20 @@ ui <- function(custom_dataset = NULL) {
title = "Additional information",
div(
class = "container",
h2("Drug effects"),
p(HTML(paste0(
"Scores for drugs based on the genes that are significantly ",
"influenced by them. To compute a score for each drug, the scores ",
"of all influenced genes based on “GTEx (all)” (X-axis) and ",
"“CMap” (Y-axis) are averaged with weights based on the fold ",
"change of the interactions. The position of each drug in this ",
"plot is therefore a result of how ubiquitous the genes that it ",
"influences are."
))),
p(HTML(paste0(
"Note: Hover over the markers to see drug names."
))),
plotly::plotlyOutput("fig_drug_scores", height = "1200px"),
h2("Number of interesting genes along the ranking"),
p(HTML(paste0(
"The notion of ubiquitous genes or housekeeping genes implies ",
@ -272,21 +286,7 @@ ui <- function(custom_dataset = NULL) {
"Note: Click on the legend items to toggle single sources. A ",
"double-click will isolate a single source of interest."
))),
plotly::plotlyOutput("gsea_plot_ranking", height = "600px"),
h2("Drug effects"),
p(HTML(paste0(
"Scores for drugs based on the genes that are significantly ",
"influenced by them. To compute a score for each drug, the scores ",
"of all influenced genes based on “GTEx (all)” (X-axis) and ",
"“CMap” (Y-axis) are averaged with weights based on the fold ",
"change of the interactions. The position of each drug in this ",
"plot is therefore a result of how ubiquitous the genes that it ",
"influences are."
))),
p(HTML(paste0(
"Note: Hover over the markers to see drug names."
))),
plotly::plotlyOutput("fig_drug_scores", height = "1200px")
plotly::plotlyOutput("gsea_plot_ranking", height = "600px")
)
),
tabPanel(