johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Display score and add cut-off filter

Browse source
This commit is contained in:
Elias Projahn 2021-09-30 13:25:39 +02:00
parent 91c15045cf
commit 8fc743fe10
2 changed files with 28 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

23
server.R
View file

@ -19,8 +19,18 @@ server <- function(input, output) {
# Compute scoring factors and the weighted score.
results[, score := input$clusteriness / 100 * clusteriness +
input$correlation / 100 * r_mean]
clusteriness_weight <- input$clusteriness / 100
correlation_weight <- input$correlation / 100
total_weight <- clusteriness_weight + correlation_weight
clusteriness_factor <- clusteriness_weight / total_weight
correlation_factor <- correlation_weight / total_weight
results[, score := clusteriness_factor * clusteriness +
correlation_factor * r_mean]
# Apply the cut-off score.
results <- results[score >= input$cutoff / 100]
# Order the results based on their score. The resulting index will be
# used as the "rank".
@ -29,17 +39,20 @@ server <- function(input, output) {
})
output$genes <- renderDT({
datatable(
results()[, .(.I, name, clusteriness, r_mean)],
dt <- datatable(
results()[, .(.I, name, clusteriness, r_mean, score)],
rownames = FALSE,
colnames = c(
"Rank",
"Gene",
"Clusteriness",
"Correlation"
"Correlation",
"Score"
),
style = "bootstrap"
)
formatPercentage(dt, c("clusteriness", "r_mean", "score"), digits = 1)
})
output$synposis <- renderText({

11
ui.R
View file

@ -25,7 +25,7 @@ ui <- fluidPage(
min = 0,
max = 100,
step = 1,
value = 50
value = 100
),
sliderInput(
"correlation",
@ -35,6 +35,15 @@ ui <- fluidPage(
max = 100,
step = 1,
value = 100
),
sliderInput(
"cutoff",
"Cut-off score",
post = "%",
min = 0,
max = 100,
step = 1,
value = 50
)
),
wellPanel(