R/titlebox.R

In chrisadolph/tileForShiny: Plot multiple graphical displays in a tiled layout with automated or customizable titles, axes, and annotations

titlebox <- function(currvpTree,currgList) {

    currgList <- gList(currgList,
                           rectGrob(name=paste("titlebox"),
                                    vp=currvpTree
                                    )
                       )
    
    currgList
}