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: Simplify and add more options

Browse source
This commit is contained in:
Elias Projahn 2021-11-15 10:22:28 +01:00
parent b5957262a3
commit 9b9109b389
5 changed files with 124 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/methods.R
View file

@ -53,6 +53,7 @@ methods_ui <- function(id) {
methods_server <- function(id, analysis, min_n_species) {
moduleServer(id, function(input, output, session) {
observeEvent(input$optimize_button, {
analysis <- analysis()
method_ids <- NULL
# Only include activated methods.
@ -63,9 +64,9 @@ methods_server <- function(id, analysis, min_n_species) {
}
weights <- geposan::optimal_weights(
analysis(),
analysis,
method_ids,
genes_tpe_old,
analysis$preset$reference_gene_ids,
target = input$target,
min_n_species = min_n_species()
)