fix: plot tissue csv

bigomics · Mar 18, 2024 · c68169c · c68169c
1 parent 8ccf4ad
commit c68169c
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/components/board.dataview/R/dataview_plot_tissue.R b/components/board.dataview/R/dataview_plot_tissue.R
@@ -142,12 +142,20 @@ dataview_plot_tissue_server <- function(id, pgx, r.gene, r.data_type, watermark
         )
     }
 
+    plot_data_csv <- function() {
+      pdat <- plot_data()
+      df <- pdat$df
+      df$group <- NULL
+      df$color <- NULL
+      return(df)
+    }
+
     PlotModuleServer(
       "pltmod",
       plotlib = "plotly",
       func = plot.RENDER,
       func2 = modal_plot.RENDER,
-      csvFunc = plot_data, ##  *** downloadable data as CSV
+      csvFunc = plot_data_csv, ##  *** downloadable data as CSV
       res = c(90, 170), ## resolution of plots
       pdf.width = 8, pdf.height = 4,
       add.watermark = watermark