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

Update plots

Browse source
This commit is contained in:
Elias Projahn 2021-12-02 17:22:27 +01:00
parent 42b2254a1e
commit 48c903f8c7
2 changed files with 23 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

62
R/server.R
View file

@ -92,26 +92,17 @@ server <- function(input, output, session) {
output$scatter <- plotly::renderPlotly({ output$scatter <- plotly::renderPlotly({
preset <- preset() preset <- preset()
gene_sets <- list("Reference genes" = preset$reference_gene_ids)
gene_sets <- list(preset$reference_gene_ids) comparison_gene_ids <- comparison_gene_ids()
labels <- c("Reference genes")
comparison_gene_ids <- results_filtered()[
input$genes_rows_selected,
gene
]
if (length(comparison_gene_ids) >= 1) { if (length(comparison_gene_ids) >= 1) {
gene_sets <- c(gene_sets, list(comparison_gene_ids)) gene_sets <- c(
labels <- c(labels, "Comparison genes") gene_sets,
list("Comparison genes" = comparison_gene_ids)
)
} }
geposan::plot_positions( geposan::plot_positions(preset$species_ids, gene_sets)
preset$species_ids,
gene_sets = gene_sets,
labels = labels,
use_positions = input$use_positions
)
}) })
output$assessment_synopsis <- renderText({ output$assessment_synopsis <- renderText({
@ -153,46 +144,37 @@ server <- function(input, output, session) {
}) })
output$rank_plot <- plotly::renderPlotly({ output$rank_plot <- plotly::renderPlotly({
gene_sets <- list(preset()$reference_gene_ids) preset <- preset()
labels <- c("Reference genes") gene_sets <- list("Reference genes" = preset$reference_gene_ids)
comparison_gene_ids <- comparison_gene_ids()
comparison_gene_ids <- results_filtered()[
input$genes_rows_selected,
gene
]
if (length(comparison_gene_ids) >= 1) { if (length(comparison_gene_ids) >= 1) {
gene_sets <- c(gene_sets, list(comparison_gene_ids)) gene_sets <- c(
labels <- c(labels, "Comparison genes") gene_sets,
list("Comparison genes" = comparison_gene_ids)
)
} }
geposan::plot_scores( geposan::plot_scores(
ranking(), ranking(),
gene_sets = gene_sets, gene_sets = gene_sets,
labels = labels,
max_rank = results_filtered()[, max(rank)] max_rank = results_filtered()[, max(rank)]
) )
}) })
output$boxplot <- plotly::renderPlotly({ output$boxplot <- plotly::renderPlotly({
gene_sets <- list(preset()$reference_gene_ids) preset <- preset()
labels <- c("Reference genes") gene_sets <- list("Reference genes" = preset$reference_gene_ids)
comparison_gene_ids <- comparison_gene_ids()
comparison_gene_ids <- results_filtered()[
input$genes_rows_selected,
gene
]
if (length(comparison_gene_ids) >= 1) { if (length(comparison_gene_ids) >= 1) {
gene_sets <- c(gene_sets, list(comparison_gene_ids)) gene_sets <- c(
labels <- c(labels, "Comparison genes") gene_sets,
list("Comparison genes" = comparison_gene_ids)
)
} }
geposan::plot_boxplot( geposan::plot_boxplot(ranking(), gene_sets)
ranking(),
gene_sets = gene_sets,
labels = labels
)
}) })
output$chromosome_plot <- plotly::renderPlotly({ output$chromosome_plot <- plotly::renderPlotly({

6
R/ui.R
View file

@ -22,11 +22,7 @@ ui <- fluidPage(
) )
), ),
tabPanel( tabPanel(
"Positions", "Input Data",
checkboxInput(
"use_positions",
"Show positions instead of distances"
),
plotly::plotlyOutput( plotly::plotlyOutput(
"scatter", "scatter",
width = "100%", width = "100%",