Remove duplicate code from data save module

NeuroShepherd · Jul 29, 2024 · 2a15f8e · 2a15f8e
1 parent deae32c
commit 2a15f8e
Showing 1 changed file with 2 additions and 21 deletions.
diff --git a/R/mod_save_data.R b/R/mod_save_data.R
@@ -68,26 +68,6 @@ mod_save_data_server <- function(id, input_data, processed_data, rng_info, input
         }
       })
 
-    output$save_xlsx <- downloadHandler(
-      filename = function() {
-        # Consider: use .RData in future for flexibility?
-        paste0("data", Sys.Date(), session$token, download_counter(), ".xlsx")
-      },
-      content = function(file) {
-        writexl::write_xlsx(
-          list(
-            distribution_statistics = data_to_save()$comparison_data$distribution_statistics,
-            comparison_run_info = data_to_save()$comparison_data$run_info,
-            group1_type1_error = data_to_save()$group1_data$group1_t1error,
-            group1_run_info = data_to_save()$group1_data$run_info,
-            group2_type1_error = data_to_save()$group2_data$group2_t1error,
-            group2_run_info = data_to_save()$group2_data$run_info
-            ) %>%
-            lapply(function(x) {if (is.null(x)) {data.frame()} else {x}}),
-          path = file)
-      }
-    )
-
     download_counter_excel <- reactiveVal(1)
     output$save_xlsx <- downloadHandler(
         filename = function() {
@@ -102,7 +82,8 @@ mod_save_data_server <- function(id, input_data, processed_data, rng_info, input
               group1_run_info = data_to_save()$group1_data$run_info,
               group2_type1_error = data_to_save()$group2_data$group2_t1error,
               group2_run_info = data_to_save()$group2_data$run_info
-            ),
+            ) %>%
+              lapply(function(x) {if (is.null(x)) {data.frame()} else {x}}),
             path = file
           )
           # increment download number