From 3e6bcec7936ec34ebd8bb21619cca82d256c38b5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Xavier=20Escrib=C3=A0=20Montagut?=
 <xavier.escriba.montagut@gmail.com>
Date: Tue, 19 Mar 2024 00:41:16 +0100
Subject: [PATCH] fix: plot correlation csv

---
 .../board.dataview/R/dataview_plot_correlation.R    | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/components/board.dataview/R/dataview_plot_correlation.R b/components/board.dataview/R/dataview_plot_correlation.R
index 692d244eb..fa5967dfc 100644
--- a/components/board.dataview/R/dataview_plot_correlation.R
+++ b/components/board.dataview/R/dataview_plot_correlation.R
@@ -166,12 +166,23 @@ dataview_plot_correlation_server <- function(id,
         plotly_modal_default()
     }
 
+    plot_data_csv <- function() {
+      pd <- plot_data()
+      df <- pd[[1]]
+      df$genes <- factor(df$genes, levels = df$genes)
+      df$gene_title <- stringr::str_extract(df$annot, "(?<=gene_title: <b>)[^<]+")
+      df$gene_name <- stringr::str_extract(df$annot, "(?<=gene_name: <b>)[^<]+")
+      df$color <- NULL
+      df$annot <- NULL
+      return(df)
+    }
+
     PlotModuleServer(
       "pltsrv",
       plotlib = "plotly",
       func = plotly.RENDER,
       func2 = modal_plotly.RENDER,
-      csvFunc = plot_data, ##  *** downloadable data as CSV
+      csvFunc = plot_data_csv, ##  *** downloadable data as CSV
       res = c(80, 170), ## resolution of plots
       pdf.width = 6, pdf.height = 6,
       add.watermark = watermark