Update gs_cyto_data<- to support replacement with flowSet objects. (#383

) * Update gs_cyto_data<- to support replacement with flowSet objects. * Add additional type checks to gs_cyto_data<-.
RGLab · Jun 14, 2023 · 8d75837 · 8d75837
1 parent beda368
commit 8d75837
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/GatingSet_Methods.R b/R/GatingSet_Methods.R
@@ -528,6 +528,15 @@ setReplaceMethod("flowData",signature(x="GatingSet"),function(x,value){
 #' @rdname gs_cyto_data
 #' @export
 setReplaceMethod("gs_cyto_data",signature(x="GatingSet"),function(x,value){
+      if(class(value) != "cytoset") {
+        if(inherits(value, "flowSet")) {
+          value <- flowSet_to_cytoset(value)
+        } else {
+          stop(
+            "Data to replace in GatingSet must be either a flowSet or cytoset!"
+          )
+        }
+      }
 			set_cytoset(x@pointer, value@pointer)
 			x
 		})