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

preset editor: Select all species by default

Browse source
This commit is contained in:
Elias Projahn 2021-11-23 16:51:55 +01:00
parent 36ccbd4752
commit f08c3a8421
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/preset_editor.R
View file

@ -13,8 +13,8 @@ preset_editor_ui <- function(id) {
NS(id, "species"), NS(id, "species"),
"Species to include", "Species to include",
choices = list( choices = list(
"Replicatively aging species" = "replicative",
"All species" = "all", "All species" = "all",
"Known replicatively aging species" = "replicative",
"Customize" = "custom" "Customize" = "custom"
) )
), ),
@ -97,7 +97,7 @@ preset_editor_server <- function(id) {
moduleServer(id, function(input, output, session) { moduleServer(id, function(input, output, session) {
current_preset <- reactiveVal(geposan::preset( current_preset <- reactiveVal(geposan::preset(
methods = method_ids, methods = method_ids,
species_ids = species[replicative == TRUE, id], species_ids = species$id,
gene_ids = genes$id, gene_ids = genes$id,
reference_gene_ids = genes[suggested | verified == TRUE, id], reference_gene_ids = genes[suggested | verified == TRUE, id],
optimization_target = "mean" optimization_target = "mean"