data(demoCell)
op <- options("device")
options("device" = "png")
labels <- c("Axin1")
names(labels) <- c("DSIMGA04:C07")
cellSigPlot(oneCell, highlight.label = labels, outpath = tempdir())
options(op)
Run the code above in your browser using DataLab