CompassContainerFromGatingSet parsing of node name

[Darylmorris68]

I'm having issues parsing a node name that includes parentheses.

>     Naive_pop[[iFile]] <- COMPASSContainerFromGatingSet(G[grep("HPV",pd$Sample)],node="Naive (CCR7+CD45RA+)",swap=FALSE,
+                                                              individual_id = "PTID.VISITNO",
+                                                              markers=c("CD25","CD69","CD137","CD154","OX40","PD-L1","PD-1"), 
+                                                              mp = list("Naive (CCR7+CD45RA+)/CD25+"   = "CD25",
+                                                                        "Naive (CCR7+CD45RA+)/CD69+"   = "CD69", 
+                                                                        "Naive (CCR7+CD45RA+)/CD137+"  = "CD137", 
+                                                                        "Naive (CCR7+CD45RA+)/CD154+"  = "CD154",
+                                                                        "Naive (CCR7+CD45RA+)/OX40+"   = "OX40",
+                                                                        "Naive (CCR7+CD45RA+)/PD-L1+"   = "PD-L1", 
+                                                                        "Naive (CCR7+CD45RA+)/PD-1+"   = "PD-1"))
Extracting cell counts
Error in COMPASSContainerFromGatingSet(G[grep("HPV", pd$Sample)], node = "Naive (CCR7+CD45RA+)",  : 
  The node expression /Naive (CCR7\+CD45RA\+)$ doesn't identify any nodes.
> traceback()
2: stop(gettextf("The node expression %s doesn't identify any nodes.", 
       node))
1: COMPASSContainerFromGatingSet(G[grep("HPV", pd$Sample)], node = "Naive (CCR7+CD45RA+)", 
       swap = FALSE, individual_id = "PTID.VISITNO", markers = c("CD25", 
           "CD69", "CD137", "CD154", "OX40", "PD-L1", "PD-1"), mp = list(`Naive (CCR7+CD45RA+)/CD25+` = "CD25", 
           `Naive (CCR7+CD45RA+)/CD69+` = "CD69", `Naive (CCR7+CD45RA+)/CD137+` = "CD137", 
           `Naive (CCR7+CD45RA+)/CD154+` = "CD154", `Naive (CCR7+CD45RA+)/OX40+` = "OX40", 
           `Naive (CCR7+CD45RA+)/PD-L1+` = "PD-L1", `Naive (CCR7+CD45RA+)/PD-1+` = "PD-1"))
> 
> 

When I escape, the parentheses in the node name, the problem moves.

>     Naive_pop[[iFile]] <- COMPASSContainerFromGatingSet(G[grep("HPV",pd$Sample)],node="Naive \\(CCR7+CD45RA+\\)",swap=FALSE,
+                                                              individual_id = "PTID.VISITNO",
+                                                              markers=c("CD25","CD69","CD137","CD154","OX40","PD-L1","PD-1"), 
+                                                              mp = list("Naive (CCR7+CD45RA+)/CD25+"   = "CD25",
+                                                                        "Naive (CCR7+CD45RA+)/CD69+"   = "CD69", 
+                                                                        "Naive (CCR7+CD45RA+)/CD137+"  = "CD137", 
+                                                                        "Naive (CCR7+CD45RA+)/CD154+"  = "CD154",
+                                                                        "Naive (CCR7+CD45RA+)/OX40+"   = "OX40",
+                                                                        "Naive (CCR7+CD45RA+)/PD-L1+"   = "PD-L1", 
+                                                                        "Naive (CCR7+CD45RA+)/PD-1+"   = "PD-1"))
Extracting cell counts
Fetching Naive (CCR7+CD45RA+)
Error in .cpp_getPopStats(x@pointer, sampleNames(x), y) : 
  Naive \(CCR7+CD45RA+\) not found!

[mikejiang]

Looks like a bug in COMPASSContainerFromGatingSet, where the regular expression string from node argument (Naive \\(CCR7+CD45RA+\\)) was mistakenly passed down to the GatingSet API for node lookup.
Should be an easy fix.