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

Add gene set enrichment analysis

Browse source
This commit is contained in:
Elias Projahn 2021-10-07 12:18:47 +02:00
parent d73908acab
commit f002758fc8
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
server.R
View file

@ -1,5 +1,7 @@
library(data.table) library(data.table)
library(DT) library(DT)
library(gprofiler2)
library(plotly)
library(shiny) library(shiny)
source("init.R") source("init.R")
@ -112,4 +114,9 @@ server <- function(input, output) {
scatter_plot(results, species, genes, distances) scatter_plot(results, species, genes, distances)
}) })
output$gost <- renderPlotly({
result <- gost(results()[, gene], ordered_query = TRUE)
gostplot(result, capped = FALSE, interactive = TRUE)
})
} }

9
ui.R
View file

@ -1,4 +1,5 @@
library(DT) library(DT)
library(plotly)
library(shiny) library(shiny)
ui <- fluidPage( ui <- fluidPage(
@ -82,6 +83,14 @@ ui <- fluidPage(
) )
) )
) )
),
wellPanel(
h3("Gene set enrichment analysis"),
plotlyOutput(
"gost",
width = "100%",
height = "600px"
)
) )
) )
) )