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

Correción bug en gates_save

Browse Source
This commit is contained in:
marcelcosta
2024-04-18 11:13:24 +02:00
parent 0813dbf52a
commit faae730ac0
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
functionsCyto.R
+1 -1
View File
@@ -236,7 +236,7 @@ LMD2FCS<-function(files, output.dir=NULL){
gates_save<-function(gs, file="gates.rds", save=T, include=NULL){ gates_save<-function(gs, file="gates.rds", save=T, include=NULL){
gates.list<-list() gates.list<-list()
pop_paths_full<-gs_get_pop_paths(gs)[gs_get_pop_paths(gs) != "root"] pop_paths_full<-gs_get_pop_paths(gs)[gs_get_pop_paths(gs) != "root"]
if(!is.null(include)){pop_paths_full<-pop_paths_full[pop_paths %in% include]} if(!is.null(include)){pop_paths_full<-pop_paths_full[pop_paths_full %in% include]}
pop_paths<-lapply(pop_paths_full, function(x) rev(rev(strsplit(x, "/")[[1]])[1:2])) pop_paths<-lapply(pop_paths_full, function(x) rev(rev(strsplit(x, "/")[[1]])[1:2]))
for (gate.in in 1:length(pop_paths)){ for (gate.in in 1:length(pop_paths)){
gate<-pop_paths[[gate.in]] gate<-pop_paths[[gate.in]]