data(demoCell)
op <- options("device")
options("device" = "png")
cellViz(oneCell, data.type = c("raw", "norm"), plateID = 1:6, outpath = tempdir())
cellViz(oneCell, data.type = c("raw", "norm"), plateID = 1, outpath = tempdir())
options(op)
Run the code above in your browser using DataLab