Bug on gs_gate_interactive_regate2 when there are no children.

2024-04-18 13:51:20 +02:00
parent faae730ac0
commit 8f95e7ebae
1 changed files with 7 additions and 4 deletions
@@ -284,9 +284,11 @@ gs_pop_get_children_recursive<-function(gs, pop){

 gs_gate_interactive_regate2<-function(gs, filterId, sample=1, subset="root", ...){
  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_gate<-gates_save(gs, save=F, include=childrens)
+  if (length(childrens)>0){
+    childrens_gate<-gates_save(gs, save=F, include=childrens) 
+  }
  
  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")
  
  gs_pop_remove(gs, "duplicated")
-
-  gates_apply(gs, childrens_gate)
+  if (length(childrens)>0){
+    gates_apply(gs, childrens_gate)
+  }
 }