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 rank plot

Browse source
This commit is contained in:
Elias Projahn 2021-10-15 13:16:51 +02:00
parent 114193506b
commit 527ba01cc9
3 changed files with 48 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
server.R
View file

@ -6,6 +6,7 @@ library(rclipboard)
library(shiny)
source("init.R")
source("rank_plot.R")
source("scatter_plot.R")
#' Java script function to replace gene IDs with Ensembl gene links.
@ -83,6 +84,11 @@ server <- function(input, output) {
results[, rank := .I]
})
output$rank_plot <- renderPlotly({
results <- results()
rank_plot(results, genes[suggested | verified == TRUE, id])
})
output$genes <- renderDT({
method_ids <- sapply(methods, function(method) method$id)
method_names <- sapply(methods, function(method) method$name)