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

Refactor input page and handle preset errors

Browse source
This commit is contained in:
Elias Projahn 2022-01-23 19:46:17 +01:00
parent aa4c655c53
commit 11c125465d
4 changed files with 131 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

21
R/server.R
View file

@ -8,7 +8,9 @@ js_link <- DT::JS("function(row, data) {
}")
server <- function(input, output, session) {
preset <- preset_editor_server("preset_editor")
input_reactives <- input_page_server("input_page")
preset <- input_reactives$preset
comparison_gene_ids <- input_reactives$comparison_gene_ids
# Compute the results according to the preset.
analysis <- reactive({
@ -48,23 +50,6 @@ server <- function(input, output, session) {
# Server for the detailed results panel.
results_server("results", results_filtered)
comparison_gene_ids <- comparison_editor_server("comparison_editor", preset)
output$scatter <- 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)
})
output$rank_plot <- plotly::renderPlotly({
preset <- preset()
gene_sets <- list("Reference genes" = preset$reference_gene_ids)