|
|
@ -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]] |
|
|
|
