From faae730ac02054585e68d5a75742b7849eb09584 Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Thu, 18 Apr 2024 11:13:24 +0200 Subject: [PATCH] =?UTF-8?q?Correci=C3=B3n=20bug=20en=20gates=5Fsave?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- functionsCyto.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/functionsCyto.R b/functionsCyto.R index 7a24931..ac7c54a 100644 --- a/functionsCyto.R +++ b/functionsCyto.R @@ -236,7 +236,7 @@ LMD2FCS<-function(files, output.dir=NULL){ gates_save<-function(gs, file="gates.rds", save=T, include=NULL){ gates.list<-list() 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])) for (gate.in in 1:length(pop_paths)){ gate<-pop_paths[[gate.in]]