R/cellplot.R

In mtennekes/tmap: Thematic Maps

cellplot <- function(x, y, name=NULL, vp=NULL, clip = TRUE, e) {
	pushViewport(viewport(layout.pos.row=x, layout.pos.col=y, name=name, clip=clip))
	n <- 1
	if (!is.null(vp)){ 
		pushViewport(vp)
		n <- n + 1
	}
	v <- current.viewport()
	x <- e
	upViewport(n=n)
	gTree(children=gList(x), vp=v, name=name)
}