From f8ad44f46e663f5b3bd8a70a49dcb7c5482e4e5d Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Tue, 7 May 2024 16:50:58 +0200
Subject: [PATCH] add possibility to inverse.transform on gs_export_pop

---
 functionsCyto.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/functionsCyto.R b/functionsCyto.R
index b03e6bb..1903289 100644
--- a/functionsCyto.R
+++ b/functionsCyto.R
@@ -1,4 +1,4 @@
-gs_export_pop<-function(gs, pop, trim.channels=T){
+gs_export_pop<-function(gs, pop, trim.channels=T, inverse.transform=F){
   pop.dt<-c()
   # Initializes the progress bar
   pb <- txtProgressBar(min = 0,      # Minimum value of the progress bar
@@ -10,7 +10,7 @@ gs_export_pop<-function(gs, pop, trim.channels=T){
   
   for (i in 1:length(gs)){
     samp<-sampleNames(gs)[i]
-    data<-as.data.frame(flowCore::exprs(gh_pop_get_data(gs[[samp]], pop))) %>% add_column("Sample"=samp)
+    data<-as.data.frame(flowCore::exprs(gh_pop_get_data(gs[[samp]], pop, inverse.transform=inverse.transform))) %>% add_column("Sample"=samp)
     if (length(pop.dt) > 0){
       pop.dt<-rbind(pop.dt, data)
     }else{