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", title = "Additional information",
div( div(
class = "container", 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"), h2("Number of interesting genes along the ranking"),
p(HTML(paste0( p(HTML(paste0(
"The notion of ubiquitous genes or housekeeping genes implies ", "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 ", "Note: Click on the legend items to toggle single sources. A ",
"double-click will isolate a single source of interest." "double-click will isolate a single source of interest."
))), ))),
plotly::plotlyOutput("gsea_plot_ranking", height = "600px"), 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")
) )
), ),
tabPanel( tabPanel(