open Diva xml workspace
open_diva_xml(file, options = 0, ...)
file | xml file |
---|---|
options | argument passed to xmlTreeParse |
... | arguments passed to xmlTreeParse |
a diva_workspace
object
if (FALSE) { library(flowWorkspace) library(CytoML) ws <- open_diva_xml(system.file('extdata/diva/PE_2.xml', package = "flowWorkspaceData")) ws diva_get_sample_groups(ws) gs <- diva_to_gatingset(ws, name = 2, subset = 1) sampleNames(gs) gs_get_pop_paths(gs) plotGate(gs[[1]]) }