From 582ae2c7e8122a96c63f5243834b1620d0a8b995 Mon Sep 17 00:00:00 2001
From: leopoldguyot <leopold.guyot13@gmail.com>
Date: Mon, 15 Jul 2024 18:56:27 +0200
Subject: [PATCH] [FIX] - remove pattern from downloaded qfeatures object

---
 R/server_module_summary_tab.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/server_module_summary_tab.R b/R/server_module_summary_tab.R
index cc1e250..b4fa021 100644
--- a/R/server_module_summary_tab.R
+++ b/R/server_module_summary_tab.R
@@ -67,7 +67,9 @@ server_module_summary_tab <- function(id) {
                 "qfeatures_object.rds"
             },
             content = function(file) {
-                saveRDS(global_rv$qfeatures, file)
+                final_qfeatures <- global_rv$qfeatures
+                names(final_qfeatures) <- remove_QFeaturesGUI(names(final_qfeatures))
+                saveRDS(final_qfeatures, file)
             }
         )
     })