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

Separate reference and comparison gene sets

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

4
R/preset_editor.R
View file

@ -8,7 +8,7 @@
#' @noRd
preset_editor_ui <- function(id, options) {
species_choices <- c("All species", names(options$species_sets))
gene_choices <- names(options$gene_sets)
gene_choices <- names(options$reference_gene_sets)
if (!options$locked) {
species_choices <- c(species_choices, "Customize")
@ -97,7 +97,7 @@ preset_editor_server <- function(id, options) {
reference_gene_ids <- if (input$reference_genes == "Customize") {
custom_gene_ids()
} else {
options$gene_sets[[input$reference_genes]]
options$reference_gene_sets[[input$reference_genes]]
}
species_ids <- if (input$species == "All species") {