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

Adapt to geposan preset changes

Browse source
This commit is contained in:
Elias Projahn 2022-01-17 20:36:34 +01:00
parent f1b78d0081
commit bcd2a615b1
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/preset_editor.R
View file

@ -83,10 +83,10 @@ preset_editor_server <- function(id) {
) )
current_preset <- reactiveVal(geposan::preset( current_preset <- reactiveVal(geposan::preset(
genes[suggested | verified == TRUE, id],
methods = methods, methods = methods,
species_ids = species$id, species_ids = species$id,
gene_ids = genes$id, gene_ids = genes$id
reference_gene_ids = genes[suggested | verified == TRUE, id]
)) ))
new_preset <- reactive({ new_preset <- reactive({
@ -112,10 +112,10 @@ preset_editor_server <- function(id) {
} }
geposan::preset( geposan::preset(
reference_gene_ids,
methods = methods, methods = methods,
species_ids = species_ids, species_ids = species_ids,
gene_ids = genes$id, gene_ids = genes$id
reference_gene_ids = reference_gene_ids
) )
}) })