src/library/grid/tests/testls.R

library(grid)

# Test hole in DL (deleted grob)
grid.lines(name="foo")
grid.lines(x=1:0, name="foo2")
grid.ls()
grid.remove("foo")
grid.ls()
# New blank page
grid.newpage()


#######
# GROBS
#######
# Plain grob
grid.ls(grob(name="g1"))
# gList
grid.ls(gList(grob(name="gl1"), grob(name="gl2")))
# gTree
grid.ls(gTree(children=gList(grob(name="child")),
              name="parent"))
grid.ls(gTree(children=gList(grob(name="child1"), grob(name="child1")),
              name="parent"))

###########
# VIEWPORTS
###########
# Plain viewport
grid.ls(viewport(name="vp1"),
        view=TRUE)
# vpList
grid.ls(vpList(viewport(name="vpl1")),
        view=TRUE)
grid.ls(vpList(viewport(name="vpl1"), viewport(name="vpl2")),
        view=TRUE)
grid.ls(vpList(viewport(name="vpl1"), viewport(name="vpl2"),
               viewport(name="vpl3")),
        view=TRUE)
# vpStack
grid.ls(vpStack(viewport(name="vps1"), viewport(name="vps2")),
        view=TRUE)
grid.ls(vpStack(viewport(name="vps1"), viewport(name="vps2"),
                viewport(name="vps3")),
        view=TRUE)
# vpTrees
grid.ls(vpTree(viewport(name="parentvp"), vpList(viewport(name="childvp"))),
        view=TRUE)
grid.ls(vpTree(viewport(name="parentvp"),
               vpList(viewport(name="cvp1"), viewport(name="cvp2"))),
        view=TRUE)
# vpPaths
grid.ls(vpPath("A"),
        view=TRUE)
grid.ls(vpPath("A", "B"),
        view=TRUE)
grid.ls(vpPath("A", "B", "C"),
        view=TRUE)

##########
# MIXTURES
##########
# grob with vp viewport
g1 <- grob(vp=viewport(name="gvp"), name="g1")
grid.ls(g1, view=TRUE, full=TRUE)
grid.ls(g1, view=TRUE, full=TRUE, grob=FALSE)
# grob with vp vpList
grid.ls(grob(vp=vpList(viewport(name="vpl")), name="g1"),
        view=TRUE, full=TRUE)
grid.ls(grob(vp=vpList(viewport(name="vpl1"), viewport(name="vpl2")),
             name="g1"),
        view=TRUE, full=TRUE)
# grob with vp vpStack
grid.ls(grob(vp=vpStack(viewport(name="vps1"), viewport(name="vps2")),
             name="g1"),
        view=TRUE, full=TRUE)
grid.ls(grob(vp=vpStack(viewport(name="vps1"), viewport(name="vps2"),
               viewport(name="vps3")),
             name="g1"),
        view=TRUE)
# grob with vp vpTree
grid.ls(grob(vp=vpTree(viewport(name="parentvp"),
               vpList(viewport(name="cvp"))),
             name="g1"),
        view=TRUE, full=TRUE)
grid.ls(grob(vp=vpTree(viewport(name="parentvp"),
               vpList(viewport(name="cvp1"), viewport(name="cvp2"))),
             name="g1"),
        view=TRUE, full=TRUE)
# gTree with vp viewport
# and child grob with vp viewport
grid.ls(gTree(children=gList(grob(vp=viewport(name="childvp"), name="cg1"),
                grob(name="cg2")),
              name="parent",
              vp=viewport(name="parentvp")),
        view=TRUE)
# gTree with childrenvp viewport
grid.ls(gTree(childrenvp=viewport(name="vp"), name="gtree"),
        view=TRUE, full=TRUE)
grid.ls(gTree(childrenvp=viewport(name="vp"), name="gtree"),
        view=TRUE, full=TRUE, grob=FALSE)
grid.ls(gTree(children=gList(grob(name="child")),
              name="parent",
              childrenvp=viewport(name="vp")),
        view=TRUE, full=TRUE)
grid.ls(gTree(children=gList(grob(name="child1"), grob(name="child2")),
              name="parent",
              childrenvp=viewport(name="vp")),
        view=TRUE, full=TRUE)
grid.ls(gTree(children=gList(grob(name="child")),
              childrenvp=viewport(name="vp"),
              name="parent"), 
        view=TRUE, full=TRUE)
grid.ls(gTree(children=gList(grob(name="child1"), grob(name="child2")),
              name="parent",
              childrenvp=viewport(name="vp")),
        view=TRUE, full=TRUE, grob=FALSE)
# gTree with childrenvp vpTree
grid.ls(gTree(childrenvp=vpTree(parent=viewport(name="vp1"),
                children=vpList(viewport(name="vp2"))),
              name="gtree"),
        view=TRUE, full=TRUE)
grid.ls(gTree(children=gList(grob(name="child")),
              name="parent",
              childrenvp=vpTree(parent=viewport(name="vp1"),
                children=vpList(viewport(name="vp2")))),
        view=TRUE, full=TRUE)
# gTree with childrenvp vpTree
# and child grob with vp vpPath
# A gTree, called "parent", with childrenvp vpTree (vp2 within vp1)
# and child grob, called "child", with vp vpPath (down to vp2)
sampleGTree <- gTree(name="parent",
                     children=gList(grob(name="child", vp="vp1::vp2")),
                     childrenvp=vpTree(parent=viewport(name="vp1"),
                                       children=vpList(viewport(name="vp2"))))
grid.ls(sampleGTree)
# Show viewports too
grid.ls(sampleGTree, view=TRUE)
# Only show viewports
grid.ls(sampleGTree, view=TRUE, grob=FALSE)
# Alternate displays
# nested listing, custom indent
grid.ls(sampleGTree, view=TRUE, print=nestedListing, gindent="--")
# path listing
grid.ls(sampleGTree, view=TRUE, print=pathListing)
# path listing, without grobs aligned
grid.ls(sampleGTree, view=TRUE, print=pathListing, gAlign=FALSE)
# grob path listing 
grid.ls(sampleGTree, view=TRUE, print=grobPathListing)
# path listing, grobs only
grid.ls(sampleGTree, print=pathListing)
# path listing, viewports only
grid.ls(sampleGTree, view=TRUE, grob=FALSE, print=pathListing)
# raw flat listing
str(grid.ls(sampleGTree, view=TRUE, print=FALSE))