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

Add drug plots

Browse source
This commit is contained in:
Elias Projahn 2025-02-16 10:36:54 +01:00
parent cf8e9e79d5
commit 785b748ba4
8 changed files with 365 additions and 185 deletions
Download patch file Download diff file Expand all files Collapse all files

1
R/server.R
View file

@ -237,5 +237,6 @@ server <- function(custom_dataset = NULL) {
})
output$gsea_plot_ranking <- plotly::renderPlotly(gsea_plot_ranking)
output$fig_drug_scores <- plotly::renderPlotly(fig_drug_scores)
}
}

BIN
R/sysdata.rda
View file

Binary file not shown.

16
R/ui.R
View file

@ -272,7 +272,21 @@ 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")
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(