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

Move optimization to preset editor

Browse source
This commit is contained in:
Elias Projahn 2021-11-19 15:38:46 +01:00
parent 0d1070cc19
commit d2d1e09858
2 changed files with 38 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

15
R/preset_editor.R
View file

@ -61,6 +61,15 @@ preset_editor_ui <- function(id) {
)
)
),
selectInput(
NS(id, "optimization_target"),
"Optimization target",
choices = list(
"Mean rank of reference genes" = "mean",
"First rank of reference genes" = "min",
"Last rank of reference genes" = "max"
)
),
tabsetPanel(
id = NS(id, "apply_panel"),
type = "hidden",
@ -89,7 +98,8 @@ preset_editor_server <- function(id) {
methods = method_ids,
species_ids = species[replicative == TRUE, id],
gene_ids = genes$id,
reference_gene_ids = genes[suggested | verified == TRUE, id]
reference_gene_ids = genes[suggested | verified == TRUE, id],
optimization_target = "mean"
))
observeEvent(input$species, {
@ -145,7 +155,8 @@ preset_editor_server <- function(id) {
methods = method_ids,
species_ids = species_ids,
gene_ids = genes$id,
reference_gene_ids = reference_gene_ids
reference_gene_ids = reference_gene_ids,
optimization_target = input$optimization_target
)
})