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

Use newly computed metrics

Browse source
This commit is contained in:
Elias Projahn 2022-09-25 20:01:42 +02:00
parent 76f81ab6a7
commit 3829154c1e
9 changed files with 64 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

28
R/genes_table.R
View file

@ -71,14 +71,17 @@ genes_table_server <- function(id, data) {
"target=\"_blank\">{hgnc_name}</a>"
),
"Rank" = rank,
"Percentile" = percentile,
"%" = percentile,
"Score" = score,
"Median" = median_expression,
"IQR" = iqr_expression,
"QCV" = qcv_expression,
"Mean" = mean_expression,
"Standard deviation" = sd_expression,
"Expressed" = above_zero,
"Above median" = above_median,
"Above 95%" = above_95
"SD" = sd_expression,
"CV" = cv_expression,
"> 0" = above_zero,
"> median" = above_median,
"> 95%" = above_95
)],
options = list(
dom = "frtip",
@ -90,18 +93,21 @@ genes_table_server <- function(id, data) {
) |>
DT::formatPercentage(
c(
"Percentile",
"Score",
"Expressed",
"Above median",
"Above 95%"
"%",
"> 0",
"> median",
"> 95%"
),
digits = 2,
) |>
DT::formatRound(c(
"Score",
"Median",
"IQR",
"QCV",
"Mean",
"Standard deviation"
"SD",
"CV"
))
})
})