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

Remove global methods data

Browse source
This commit is contained in:
Elias Projahn 2022-05-26 17:55:40 +02:00
parent 13b5efc1e3
commit 421bb79a0b
4 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

10
R/methods.R
View file

@ -21,7 +21,7 @@ methods_ui <- function(id) {
"Customize weights" = "custom"
)
),
lapply(methods, function(method) {
lapply(geposan::all_methods(), function(method) {
verticalLayout(
checkboxInput(
NS(id, method$id),
@ -52,7 +52,7 @@ methods_ui <- function(id) {
methods_server <- function(id, analysis, comparison_gene_ids) {
moduleServer(id, function(input, output, session) {
# Observe each method's enable button and synchronise the slider state.
lapply(methods, function(method) {
lapply(geposan::all_methods(), function(method) {
observeEvent(input[[method$id]], {
shinyjs::toggleState(
sprintf("%s_weight", method$id),
@ -89,7 +89,7 @@ methods_server <- function(id, analysis, comparison_gene_ids) {
included_methods <- NULL
for (method in methods) {
for (method in geposan::all_methods()) {
if (input[[method$id]]) {
included_methods <- c(included_methods, method$id)
}
@ -105,7 +105,7 @@ methods_server <- function(id, analysis, comparison_gene_ids) {
}) |> bindCache(
analysis(),
optimization_gene_ids(),
sapply(methods, function(method) input[[method$id]]),
sapply(geposan::all_methods(), function(method) input[[method$id]]),
input$optimization_target
)
@ -114,7 +114,7 @@ methods_server <- function(id, analysis, comparison_gene_ids) {
if (length(optimization_gene_ids()) < 1 |
input$optimization_target == "custom") {
for (method in methods) {
for (method in geposan::all_methods()) {
if (input[[method$id]]) {
weight <- input[[sprintf("%s_weight", method$id)]]
weights[[method$id]] <- weight