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

Properly set replicative species

Browse source
This commit is contained in:
Elias Projahn 2021-10-21 17:34:53 +02:00
parent 4cf5bff125
commit 667eb8f2a3
2 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/preset_editor.R
View file

@ -3,14 +3,10 @@ preset_editor_ui <- function(id) {
species_choices <- species$id
names(species_choices) <- species$name
species_selected <- species_ids_replicative
known_genes <- genes[name != ""]
gene_choices <- known_genes$id
names(gene_choices) <- known_genes$name
genes_selected <- genes[suggested | verified == TRUE, id]
verticalLayout(
h3("Preset"),
selectInput(
@ -28,7 +24,7 @@ preset_editor_ui <- function(id) {
inputId = NS(id, "species"),
label = "Included species",
choices = species_choices,
selected = species_selected,
selected = species_replicative,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE
@ -39,7 +35,7 @@ preset_editor_ui <- function(id) {
inputId = NS(id, "reference_genes"),
label = "Reference genes",
choices = gene_choices,
selected = genes_selected,
selected = genes_tpe_old,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE