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

Include percentiles in data

Browse source
This commit is contained in:
Elias Projahn 2022-05-12 12:17:18 +02:00
parent 36417f86a7
commit 276730f217
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/server.R
View file

@ -16,6 +16,7 @@ server <- function(input, output) {
data.table::setorder(data, -score) data.table::setorder(data, -score)
data[, rank := .I] data[, rank := .I]
data[, percentile := 1 - rank / max(rank)]
data data
}) })
@ -33,6 +34,7 @@ genes_table <- function(data) {
"?db=core;g={gene}\" target=\"_blank\">{hgnc_name}</a>" "?db=core;g={gene}\" target=\"_blank\">{hgnc_name}</a>"
), ),
"Rank" = rank, "Rank" = rank,
"Percentile" = percentile,
"Score" = score, "Score" = score,
"Median" = median_expression, "Median" = median_expression,
"Mean" = mean_expression, "Mean" = mean_expression,
@ -51,6 +53,7 @@ genes_table <- function(data) {
) |> ) |>
DT::formatPercentage( DT::formatPercentage(
c( c(
"Percentile",
"Score", "Score",
"Expressed", "Expressed",
"Above 50 TPM", "Above 50 TPM",