Skip to content

Commit

Permalink
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
wip: remove flowDensity conversion
Browse files Browse the repository at this point in the history
gegnew committed Mar 23, 2022
1 parent 6c4f0ed commit 2d51b79
Showing 1 changed file with 0 additions and 16 deletions.
16 changes: 0 additions & 16 deletions R/convertFromFlowCore.R
Original file line number Diff line number Diff line change
@@ -25,9 +25,6 @@ fromFlowCore <- function(flowObject, experimentId, name = NULL, ...) {
}

switch(class(flowObject)[1],
"CellPopulation" = {
convertFlowDensity(flowObject, experimentId, name, ...)
},
"ellipsoidGate" = {
convertEllipsoidGate(flowObject, experimentId, name, ...)
},
@@ -40,19 +37,6 @@ fromFlowCore <- function(flowObject, experimentId, name = NULL, ...) {
)
}

convertFlowDensity <- function(flowDensity, experimentId, name = NULL, ...) {
# flowDensity@filter is always a convex polygon
flowGate <- flowDensity@filter
createPolygonGate(
experimentId,
colnames(flowGate)[1],
colnames(flowGate)[2],
name,
vertices = list(flowGate),
...
)
}

convertPolygonGate <- function(flowGate, experimentId, name = NULL, ...) {
boundaries <- flowGate@boundaries
createPolygonGate(

0 comments on commit 2d51b79

Please sign in to comment.