marcelcosta/CytoR
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add possibility to inverse.transform on gs_export_pop

Browse Source
This commit is contained in:
marcelcosta
2024-05-07 16:50:58 +02:00
parent 8f95e7ebae
commit f8ad44f46e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
functionsCyto.R
+2 -2
View File
@@ -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() pop.dt<-c()
# Initializes the progress bar # Initializes the progress bar
pb <- txtProgressBar(min = 0, # Minimum value of 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)){ for (i in 1:length(gs)){
samp<-sampleNames(gs)[i] 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){ if (length(pop.dt) > 0){
pop.dt<-rbind(pop.dt, data) pop.dt<-rbind(pop.dt, data)
}else{ }else{