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

Bug on gs_gate_interactive_regate2 when there are no children.

Browse Source
This commit is contained in:
marcelcosta
2024-04-18 13:51:20 +02:00
parent faae730ac0
commit 8f95e7ebae
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
functionsCyto.R
+4 -1
View File
@@ -286,7 +286,9 @@ gs_gate_interactive_regate2<-function(gs, filterId, sample=1, subset="root", ...
dims<-list(names(gs_pop_get_gate(gs, filterId)[[1]]@parameters)[1], dims<-list(names(gs_pop_get_gate(gs, filterId)[[1]]@parameters)[1],
names(gs_pop_get_gate(gs, filterId)[[1]]@parameters)[2]) names(gs_pop_get_gate(gs, filterId)[[1]]@parameters)[2])
childrens<-gs_pop_get_children_recursive(gs, filterId) childrens<-gs_pop_get_children_recursive(gs, filterId)
if (length(childrens)>0){
childrens_gate<-gates_save(gs, save=F, include=childrens) childrens_gate<-gates_save(gs, save=F, include=childrens)
}
gs_pop_add(gs, gs_pop_get_gate(gs, filterId), parent=subset, name="duplicated") gs_pop_add(gs, gs_pop_get_gate(gs, filterId), parent=subset, name="duplicated")
@@ -297,6 +299,7 @@ gs_gate_interactive_regate2<-function(gs, filterId, sample=1, subset="root", ...
dims = dims, regate=T, overlayGates = "duplicated") dims = dims, regate=T, overlayGates = "duplicated")
gs_pop_remove(gs, "duplicated") gs_pop_remove(gs, "duplicated")
if (length(childrens)>0){
gates_apply(gs, childrens_gate) gates_apply(gs, childrens_gate)
} }
}