add possibility to inverse.transform on gs_export_pop

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{