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 changes in geposan

Browse source
This commit is contained in:
Elias Projahn 2021-12-16 13:52:14 +01:00
parent f1337f0331
commit 2bf96ffd38
4 changed files with 61 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

20
R/preset_editor.R
View file

@ -48,16 +48,6 @@ preset_editor_ui <- function(id) {
height = "250px"
)
),
selectInput(
NS(id, "optimization_target"),
"Optimization target",
choices = list(
"Mean rank of reference genes" = "mean",
"Median rank of reference genes" = "median",
"First rank of reference genes" = "min",
"Last rank of reference genes" = "max"
)
),
tabsetPanel(
id = NS(id, "apply_panel"),
type = "hidden",
@ -93,11 +83,10 @@ preset_editor_server <- function(id) {
)
current_preset <- reactiveVal(geposan::preset(
methods = method_ids,
methods = methods,
species_ids = species$id,
gene_ids = genes$id,
reference_gene_ids = genes[suggested | verified == TRUE, id],
optimization_target = "mean"
reference_gene_ids = genes[suggested | verified == TRUE, id]
))
new_preset <- reactive({
@ -123,11 +112,10 @@ preset_editor_server <- function(id) {
}
geposan::preset(
methods = method_ids,
methods = methods,
species_ids = species_ids,
gene_ids = genes$id,
reference_gene_ids = reference_gene_ids,
optimization_target = input$optimization_target
reference_gene_ids = reference_gene_ids
)
})