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

Show relative increase in GSEA

Browse source
This commit is contained in:
Elias Projahn 2022-07-22 09:03:13 +02:00
parent 22dedfc843
commit e621761fd6
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/server.R
View file

@ -134,12 +134,14 @@ server <- function(input, output, session) {
data[, total_ratio := term_size / effective_domain_size]
data[, query_ratio := intersection_size / query_size]
data[, increase := (query_ratio - total_ratio) / total_ratio]
data <- data[, .(
source,
term_name,
total_ratio,
query_ratio,
increase,
p_value
)]
@ -151,6 +153,7 @@ server <- function(input, output, session) {
"Term",
"Total ratio",
"Query ratio",
"Increase",
"p-value"
),
options = list(
@ -158,7 +161,10 @@ server <- function(input, output, session) {
)
) |>
DT::formatRound("p_value", digits = 4) |>
DT::formatPercentage(c("total_ratio", "query_ratio"), digits = 1)
DT::formatPercentage(
c("total_ratio", "query_ratio", "increase"),
digits = 2
)
})
output$gsea_plot_ranking <- plotly::renderPlotly(gsea_plot_ranking)