Move optimization to preset editor

R/methods.R

@@ -23,18 +23,9 @@ methods_ui <- function(id) {
                 )
             )
         }),
-        radioButtons(
-            NS(id, "target"),
-            "Optimization target",
-            choices = list(
-                "Mean rank of reference genes" = "mean",
-                "First rank of reference genes" = "min",
-                "Last rank of reference genes" = "max"
-            )
-        ),
         actionButton(
-            NS(id, "optimize_button"),
-            "Optimize weights",
+            NS(id, "reset_button"),
+            "Reset weights",
             class = "btn-primary"
         )
     )
@@ -47,33 +38,6 @@ methods_ui <- function(id) {
 # @return A reactive containing the weighted results.
 methods_server <- function(id, analysis) {
     moduleServer(id, function(input, output, session) {
-        observeEvent(input$optimize_button, {
-            analysis <- analysis()
-            method_ids <- NULL
-
-            # Only include activated methods.
-            for (method in methods) {
-                if (input[[method$id]]) {
-                    method_ids <- c(method_ids, method$id)
-                }
-            }
-
-            weights <- geposan::optimal_weights(
-                analysis,
-                method_ids,
-                analysis$preset$reference_gene_ids,
-                target = input$target
-            )
-
-            for (method_id in method_ids) {
-                updateSliderInput(
-                    session,
-                    sprintf("%s_weight", method_id),
-                    value = weights[[method_id]]
-                )
-            }
-        })
-
         # Observe each method's enable button and synchronise the slider state.
         lapply(methods, function(method) {
             observeEvent(input[[method$id]],
@@ -84,9 +48,30 @@ methods_server <- function(id, analysis) {
             )
         })
 
-        reactive({
-            # Take the actual weights from the sliders.
+        observeEvent(
+            { # nolint
+                analysis()
+                input$reset_button
+            },
+            { # nolint
+                for (method in methods) {
+                    updateCheckboxInput(
+                        session,
+                        method$id,
+                        value = TRUE
+                    )
 
+                    updateSliderInput(
+                        session,
+                        sprintf("%s_weight", method$id),
+                        value = analysis()$weights[[method$id]]
+                    )
+                }
+            },
+            ignoreNULL = FALSE
+        )
+
+        reactive({
             weights <- NULL
 
             for (method in methods) {