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

data: Remove redundant species table

Browse source
This commit is contained in:
Elias Projahn 2022-01-17 20:42:27 +01:00
parent bcd2a615b1
commit 8a9ae63350
2 changed files with 5 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/preset_editor.R
View file

@ -72,8 +72,8 @@ preset_editor_ui <- function(id) {
# @return A reactive containing the preset.
preset_editor_server <- function(id) {
moduleServer(id, function(input, output, session) {
species_choices <- species$id
names(species_choices) <- species$name
species_choices <- geposan::species$id
names(species_choices) <- geposan::species$name
updateSelectizeInput(
session,
@ -83,17 +83,14 @@ preset_editor_server <- function(id) {
)
current_preset <- reactiveVal(geposan::preset(
genes[suggested | verified == TRUE, id],
methods = methods,
species_ids = species$id,
gene_ids = genes$id
genes[suggested | verified == TRUE, id]
))
new_preset <- reactive({
species_ids <- if (input$species == "replicative") {
species[replicative == TRUE, id]
species_ids_replicative
} else if (input$species == "all") {
species$id
geposan::species$id
} else {
input$custom_species
}