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

Separate reference and comparison gene sets

Browse source
This commit is contained in:
Elias Projahn 2022-08-18 09:02:53 +02:00
parent 4e0eb523ea
commit 04ab4f4a82
5 changed files with 28 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/input_page.R
View file

@ -44,7 +44,10 @@ input_page_ui <- function(id, options) {
#' @noRd
input_page_server <- function(id, options) {
moduleServer(id, function(input, output, session) {
current_preset <- reactiveVal(geposan::preset(options$gene_sets[[1]]))
current_preset <- reactiveVal(
geposan::preset(options$reference_gene_sets[[1]])
)
potential_preset <- preset_editor_server("preset_editor", options)
output$positions_plot <- plotly::renderPlotly({