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

Add more optimization targets

Browse source
This commit is contained in:
Elias Projahn 2021-10-21 11:43:34 +02:00
parent 2aed917478
commit 365cf13dcb
2 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/server.R
View file

@ -160,19 +160,23 @@ server <- function(input, output, session) {
digits = 1
))
min_rank <- as.character(reference_results[, min(rank)])
max_rank <- as.character(reference_results[, max(rank)])
} else {
mean_rank <- "Unknown"
min_rank <- "Unknown"
max_rank <- "Unknown"
}
sprintf(
"Included reference genes: %i/%i<br> \
Mean rank of reference genes: %s<br> \
Maximum rank of reference genes: %s",
First rank of reference genes: %s<br> \
Last rank of reference genes: %s",
included_reference_count,
total_reference_count,
mean_rank,
min_rank,
max_rank
)
})