johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-25 20:07:23 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add positions plot to results page

Browse source
This commit is contained in:
Elias Projahn 2022-08-04 11:54:52 +02:00
parent c2328c0847
commit c78802425c
2 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
R/server.R
View file

@ -179,6 +179,25 @@ server <- function(options) {
geposan::plot_boxplot(ranking(), gene_sets)
})
output$gene_locations_plot <- plotly::renderPlotly({
preset <- preset()
gene_sets <- list("Reference genes" = preset$reference_gene_ids)
comparison_gene_ids <- comparison_gene_ids()
if (length(comparison_gene_ids) >= 1) {
gene_sets <- c(
gene_sets,
list("Comparison genes" = comparison_gene_ids)
)
}
geposan::plot_positions(
preset$species_ids,
gene_sets,
reference_gene_ids = preset$reference_gene_ids
)
})
output$positions_plot <- plotly::renderPlotly({
preset <- preset()
gene_sets <- list("Reference genes" = preset$reference_gene_ids)

11
R/ui.R
View file

@ -68,6 +68,17 @@ ui <- function(options) {
)
)
),
tabPanel(
title = "Ortholog locations",
div(
style = "margin-top: 16px",
plotly::plotlyOutput(
"gene_locations_plot",
width = "100%",
height = "1200px"
)
)
),
tabPanel(
title = "Scores by position",
div(