|
...
|
...
|
@@ -2,6 +2,21 @@ context("parse workspaces of various flowJo versions ")
|
|
2
|
2
|
library(data.table)
|
|
3
|
3
|
path <- "~/rglab/workspace/CytoML/wsTestSuite"
|
|
4
|
4
|
|
|
|
5
|
+test_that("ellipsoidGate bug",{
|
|
|
6
|
+ # ellipse defined on fsc and ssc wasn't properly scaled
|
|
|
7
|
+ thisPath <- file.path(path, "Cytotrol/NHLBI/")
|
|
|
8
|
+ wsFile <- file.path(thisPath, "ellipse_bug.wsp")
|
|
|
9
|
+
|
|
|
10
|
+ ws <- open_flowjo_xml(wsFile)
|
|
|
11
|
+
|
|
|
12
|
+ gs <- flowjo_to_gatingset(ws, name = 1, subset = 1)
|
|
|
13
|
+
|
|
|
14
|
+ gh <- gs[[1]]
|
|
|
15
|
+
|
|
|
16
|
+ thisCounts <- gh_pop_compare_stats(gh)
|
|
|
17
|
+ expect_equal(thisCounts[, xml.freq], thisCounts[, openCyto.freq], tol = 2e-2)
|
|
|
18
|
+})
|
|
|
19
|
+
|
|
5
|
20
|
test_that("verify the extend logic no longer needed for the gate defined in biexp scale from latest flowjo wsp output",{
|
|
6
|
21
|
wsFile <- file.path(path, "gate_negative_area.wsp")
|
|
7
|
22
|
ws <- open_flowjo_xml(wsFile)
|
